home *** CD-ROM | disk | FTP | other *** search
/ Mission 3 / Mission 3.zip / Mission 3.iso / zugabe / va45 / visual45 / gwva_cte.s < prev    next >
Text File  |  1998-09-06  |  78KB  |  1,786 lines
  1. ;-------------------------------------------------------------------------
  2. ;        Début des types spécifiques V.A
  3. ;-------------------------------------------------------------------------
  4.  
  5. GWVA_ROOT_OLBIT_TIMER_REARM    = 0
  6. GWVA_ROOT_MASK_TIMER_REARM    = 1<<(15-GWVA_ROOT_OLBIT_TIMER_REARM)
  7.  
  8. ;-------------------------------------------------------------------------
  9. ; Types des objets de base V.A
  10.  
  11. GWVA_OBJ_CTE_HANDLE_UNDEF    = 0
  12.  
  13. ;-------------------------------------------------------------------------
  14. ; Bits de propriétés de l'objet
  15.  
  16. GWVA_OBJ_OLBIT_ENCAPSULATES    = 0
  17. GWVA_OBJ_OLBIT_STOP_METHOD    = 1
  18. GWVA_OBJ_OLBIT_DISABLE_DEFAULT_METHOD= 2
  19.  
  20. GWVA_OBJ_MASK_ENCAPSULATES    = 1<<(15-GWVA_OBJ_OLBIT_ENCAPSULATES)
  21. GWVA_OBJ_MASK_STOP_METHOD    = 1<<(15-GWVA_OBJ_OLBIT_STOP_METHOD)
  22. GWVA_OBJ_MASK_DISABLE_DEFAULT_METHOD= 1<<(15-GWVA_OBJ_OLBIT_DISABLE_DEFAULT_METHOD)
  23.  
  24. ;-------------------------------------------------------------------------
  25. ; Constantes pour définir les fins de listes de correspondance classe - liste de méthodes
  26.  
  27. GWVA_OBJ_CTE_END_CLASS_LIST    = -63    ; fin de liste / fin rééle ou continuée
  28. GWVA_OBJ_CTE_END_LINK_CLASS_LIST    =  0    ; si 0 : fin réele sinon continuer parsing
  29.  
  30. ;-------------------------------------------------------------------------
  31. ; Constantes pour définir les fins de listes d'héritage
  32.  
  33. GWVA_OBJ_CTE_END_INHERITANCE_LIST        = -1    ; fin de liste
  34. GWVA_OBJ_CTE_CLASS_UNDEF        =  0    ; n'herite de rien
  35. GWVA_OBJ_CTE_END_LINK_INHERITANCE_LIST    =  0    : pas de continue (ruse !)
  36.  
  37. _GWVA_VAR_CLASS_COUNTER    set 1
  38.  
  39. ;-------------------------------------------------------------------------
  40. ; Constantes pour définir les fins de listes liées à l'objet de base
  41.  
  42. GWVA_OBJ_CTE_END_METHOD_LIST    = -2
  43. GWVA_OBJ_CTE_METHODLISTPTR_UNDEF    = -3
  44. GWVA_OBJ_CTE_BEFORE_AFTER_ON_OBJECT_CLASS = -4
  45.  
  46. ;-------------------------------------------------------------------------
  47. ; Constantes pour définir les tailles et centrage des fenêtres
  48.  
  49. GWVA_WIND_CTE_SIZE_UNDEF    = -32768
  50. GWVA_WIND_CTE_H_CENTER        = -32768
  51. GWVA_WIND_CTE_V_CENTER        = -32768
  52.  
  53. GWVA_WIND_CTE_FIELD_UNDEF    = -32768
  54.  
  55. GWVA_WIND_CTE_HANDLE_UNDEF    = $DEAD
  56.  
  57. ;-------------------------------------------------------------------------
  58. ; Sous types de fenêtres (si CLASS_WINDOW)
  59.  
  60. ;-------------------------------------------------------------------------
  61. ; Sous types de fenêtres RSC (si TYPE_RSC)
  62.  
  63. ;-------------------------------------------------------------------------
  64. ; Constante définissant la fin d'une liste d'items que l'on recherche par
  65. ; leur shortcut qui dont être en premier sur un mot.
  66.  
  67. GWVA_ROOT_CTE_SHORTCUT_ENDS_LIST    = $FFFF
  68. *GWVA_OBJ_CTE_END_SHORTCUT_LIST    = -1
  69. *GWVA_MENU_CTE_END_MNULIST    = -1
  70.  
  71. GWVA_ROOT_CTE_END_OFFSET_LIST    = $80000000    ; Marque de fin de liste d'offset pour le clonage
  72.  
  73. ;-------------------------------------------------------------------------
  74. ; Constantes associées à la fenêtre FORM
  75.  
  76. GWVA_WFORM_CTE_FOCUSED_IDX_UNDEF        = -2
  77. GWVA_WFORM_CTE_FOCUSED_IDX_1ST_FOUND    = -3
  78. GWVA_WFORM_CTE_FOCUSED_IDX_CURSOR_POS_UNDEF    = -4
  79.  
  80. ;-------------------------------------------------------------------------
  81.  
  82. GWVA_WRSC_CTE_REDRAW_PART_END_LIST    = -1
  83.  
  84. ;-------------------------------------------------------------------------
  85. ; Sous types d'objets formulaires (Si CLASS_FORM_OBJ)
  86.  
  87. ;-------------------------------------------------------------------------
  88. ; Bits de statuts de la fenêtre générique : GWVA_WIND_OBJ_STATUS
  89.  
  90. GWVA_WIND_OLBIT_FULL        = 0
  91. GWVA_WIND_OLBIT_OPEN        = 1
  92. GWVA_WIND_OLBIT_CURS        = 2
  93. GWVA_WIND_OLBIT_ICON        = 3
  94. GWVA_WIND_OLBIT_NAMIFIED    = 4
  95. GWVA_WIND_OLBIT_SHADED        = 5
  96. GWVA_WIND_OLBIT_UNTOPPABLE    = 6
  97.  
  98. GWVA_WIND_MASK_FULL        = 1<<(15-GWVA_WIND_OLBIT_FULL)
  99. GWVA_WIND_MASK_OPEN        = 1<<(15-GWVA_WIND_OLBIT_OPEN)
  100. GWVA_WIND_MASK_CURS        = 1<<(15-GWVA_WIND_OLBIT_CURS)
  101. GWVA_WIND_MASK_ICON        = 1<<(15-GWVA_WIND_OLBIT_ICON)
  102. GWVA_WIND_MASK_NAMIFIED        = 1<<(15-GWVA_WIND_OLBIT_NAMIFIED)
  103. GWVA_WIND_MASK_SHADED        = 1<<(15-GWVA_WIND_OLBIT_SHADED)
  104. GWVA_WIND_MASK_UNTOPPABLE    = 1<<(15-GWVA_WIND_OLBIT_UNTOPPABLE)
  105.  
  106. ;-------------------------------------------------------------------------
  107. ; Bits de propriétés de la fenêtre générique
  108.  
  109. GWVA_WIND_OLBIT_HIDETREE    = 0    ; N'existe qu'à partir du 4.1
  110. GWVA_WIND_OLBIT_AMENU        = 1
  111. GWVA_WIND_OLBIT_CTRLC        = 2
  112. GWVA_WIND_OLBIT_CTRLV        = 3
  113. GWVA_WIND_OLBIT_CTRLX        = 4
  114. GWVA_WIND_OLBIT_TOOLBAR        = 5
  115. GWVA_WIND_OLBIT_TOOLBAR_POS1    = 6
  116. GWVA_WIND_OLBIT_TOOLBAR_POS2    = 7
  117. GWVA_WIND_OLBIT_COPYXY        = 8
  118. GWVA_WIND_OLBIT_AUTODEL        = 9
  119. GWVA_WIND_OLBIT_FREEPTR1    = 10
  120. GWVA_WIND_OLBIT_FREEPTR2    = 11
  121. GWVA_WIND_OLBIT_FIRSTFOCUS    = 12
  122. GWVA_WIND_OLBIT_KEY2ARROW    = 13
  123.  
  124. GWVA_WIND_MASK_HIDETREE        = 1<<(31-GWVA_WIND_OLBIT_HIDETREE)
  125. GWVA_WIND_MASK_AMENU        = 1<<(31-GWVA_WIND_OLBIT_AMENU)
  126. GWVA_WIND_MASK_CTRLC        = 1<<(31-GWVA_WIND_OLBIT_CTRLC)
  127. GWVA_WIND_MASK_CTRLV        = 1<<(31-GWVA_WIND_OLBIT_CTRLV)
  128. GWVA_WIND_MASK_CTRLX        = 1<<(31-GWVA_WIND_OLBIT_CTRLX)
  129. GWVA_WIND_MASK_TOOLBAR        = 1<<(31-GWVA_WIND_OLBIT_TOOLBAR)
  130. GWVA_WIND_MASK_TOOLBAR_TOP    = 0<<(31-GWVA_WIND_OLBIT_TOOLBAR_POS2)|0<<(31-GWVA_WIND_OLBIT_TOOLBAR_POS1)
  131. GWVA_WIND_MASK_TOOLBAR_LEFT    = 0<<(31-GWVA_WIND_OLBIT_TOOLBAR_POS2)|1<<(31-GWVA_WIND_OLBIT_TOOLBAR_POS1)
  132. GWVA_WIND_MASK_TOOLBAR_BOTTOM    = 1<<(31-GWVA_WIND_OLBIT_TOOLBAR_POS2)|0<<(31-GWVA_WIND_OLBIT_TOOLBAR_POS1)
  133. GWVA_WIND_MASK_TOOLBAR_RIGHT    = 1<<(31-GWVA_WIND_OLBIT_TOOLBAR_POS2)|1<<(31-GWVA_WIND_OLBIT_TOOLBAR_POS1)
  134. GWVA_WIND_MASK_TOOLBAR_POS    = 1<<(31-GWVA_WIND_OLBIT_TOOLBAR_POS2)|1<<(31-GWVA_WIND_OLBIT_TOOLBAR_POS1)
  135. GWVA_WIND_MASK_COPYXY        = 1<<(31-GWVA_WIND_OLBIT_COPYXY)
  136. GWVA_WIND_MASK_AUTODEL        = 1<<(31-GWVA_WIND_OLBIT_AUTODEL)
  137. GWVA_WIND_MASK_FREEPTR1        = 1<<(31-GWVA_WIND_OLBIT_FREEPTR1)
  138. GWVA_WIND_MASK_FREEPTR2        = 1<<(31-GWVA_WIND_OLBIT_FREEPTR2)
  139. GWVA_WIND_MASK_FIRSTFOCUS    = 1<<(31-GWVA_WIND_OLBIT_FIRSTFOCUS)
  140. GWVA_WIND_MASK_KEY2ARROW    = 1<<(31-GWVA_WIND_OLBIT_KEY2ARROW)
  141.  
  142. ;-------------------------------------------------------------------------
  143. ; Bits de properties de la fenêtre application
  144.  
  145. GWVA_WAPP_OLBIT_RSC_IN_MEM    = 0
  146. GWVA_WAPP_OLBIT_RSC_MULTI_RES    = 1
  147. GWVA_WAPP_OLBIT_BACKGROUND    = 2
  148. GWVA_WAPP_OLBIT_BACKGROUND_CENTER    = 3
  149.  
  150. GWVA_WAPP_MASK_RSC_IN_MEM    = 1<<(15-GWVA_WAPP_OLBIT_RSC_IN_MEM)
  151. GWVA_WAPP_MASK_RSC_MULTI_RES    = 1<<(15-GWVA_WAPP_OLBIT_RSC_MULTI_RES)
  152. GWVA_WAPP_MASK_BACKGROUND    = 1<<(15-GWVA_WAPP_OLBIT_BACKGROUND)
  153. GWVA_WAPP_MASK_BACKGROUND_CENTER    = 1<<(15-GWVA_WAPP_OLBIT_BACKGROUND_CENTER)
  154.  
  155. ;-------------------------------------------------------------------------
  156. ; Bits de propriétés des fenêtres ressources
  157.  
  158. GWVA_WRSC_OLBIT_FREECLONE    = 0
  159.  
  160. GWVA_WRSC_MASK_FREECLONE    = 1<<(15-GWVA_WRSC_OLBIT_FREECLONE)
  161.  
  162. ;-------------------------------------------------------------------------
  163. ; Bits de propriétés pour les menus
  164.  
  165. GWVA_RSC_OLBIT_FREECLONE    = 0
  166.  
  167. GWVA_RSC_MASK_FREECLONE        = 1<<(15-GWVA_RSC_OLBIT_FREECLONE)
  168.  
  169. ;-------------------------------------------------------------------------
  170. ; Bits de propriétés des fenêtres bitmap
  171.  
  172. GWVA_WBITM_OLBIT_FREEDATA    = 0
  173. GWVA_WBITM_OLBIT_FREEPAL    = 1
  174.  
  175. GWVA_WBITM_MASK_FREEDATA    = 1<<(15-GWVA_WBITM_OLBIT_FREEDATA)
  176. GWVA_WBITM_MASK_FREEPAL        = 1<<(15-GWVA_WBITM_OLBIT_FREEPAL)
  177.  
  178. ;-------------------------------------------------------------------------
  179. ; Constantes à fournir dans le champs GWVA_WAPP_OBJ_TSR_SIZE de l'objet WAPP
  180.  
  181. GWVA_TSR_SIZE_CTE_TEXT_DATA    = -1    ; pour garder page base + section TEXT/DATA
  182. GWVA_TSR_SIZE_CTE_TEXT_DATA_BSS    = -2    ; pour garder page base + section TEXT/DATA/BSS
  183.  
  184. ;-------------------------------------------------------------------------
  185. ; Bits de propriétés des fenêtres formulaire
  186.  
  187. GWVA_WFORM_OLBIT_COPY_FOCUS    = 0
  188.  
  189. GWVA_WFORM_MASK_COPY_FOCUS    = 1<<(15-GWVA_WFORM_OLBIT_COPY_FOCUS)
  190.  
  191. ;-------------------------------------------------------------------------
  192. ; constantes pour la fenêtre menu
  193.  
  194. GWVA_MENU_OLBIT_OPEN        = 0
  195.  
  196. GWVA_MENU_MASK_OPEN        = 1<<(15-GWVA_MENU_OLBIT_OPEN)
  197.  
  198. GWVA_MENU_CTE_UNCHECK        = 0
  199. GWVA_MENU_CTE_CHECK        = 1
  200. GWVA_MENU_CTE_CHANGE_CHECK    = 2
  201. GWVA_MENU_CTE_TEST_CHECK    = 3
  202.  
  203. GWVA_MENU_CTE_UNCHECKED        = 0
  204. GWVA_MENU_CTE_CHECKED        = 1
  205.  
  206. ;-------------------------------------------------------------------------
  207. ; Bits de propriétés de l'objet formulaire de base
  208.  
  209. ;-------------------------------------------------------------------------
  210. ; Bits de propriétés de l'objet formulaire bouton
  211.  
  212. GWVA_FBTON_OLBIT_INIT_STATE    = 0
  213.  
  214. GWVA_FBTON_MASK_INIT_STATE    = 1<<(15-GWVA_FBTON_OLBIT_INIT_STATE)
  215.  
  216. ;-------------------------------------------------------------------------
  217. ; Bits de propriétés de l'objet formulaire popup
  218.  
  219. GWVA_FPOP_OLBIT_INIT_SELECT    = 0
  220.  
  221. GWVA_FPOP_MASK_INIT_SELECT    = 1<<(15-GWVA_FPOP_OLBIT_INIT_SELECT)
  222.  
  223. ;-------------------------------------------------------------------------
  224. ; Bits de propriétés de l'objet formulaire radio
  225.  
  226. GWVA_FRADIO_OLBIT_INIT_SELECT    = 0
  227.  
  228. GWVA_FRADIO_MASK_INIT_SELECT    = 1<<(15-GWVA_FRADIO_OLBIT_INIT_SELECT)
  229.  
  230. ;-------------------------------------------------------------------------
  231. ; Bits de propriétés de l'objet formulaire slider
  232.  
  233. GWVA_FSLIDER_OLBIT_ORIENTATION    = 0
  234.  
  235. GWVA_FSLIDER_MASK_ORIENTATION    = 1<<(15-GWVA_FSLIDER_OLBIT_ORIENTATION)
  236.  
  237. GWVA_FSLIDER_MASK_HORIZONTAL    = 0
  238. GWVA_FSLIDER_MASK_VERTICAL    = GWVA_FSLIDER_MASK_ORIENTATION
  239.  
  240. ;-------------------------------------------------------------------------
  241. ; Bits pour le clonage des fenêtres
  242. ; Ne sont définis ici que les champs qui ne sont pas remplis automatiquement par le V.A.
  243.  
  244. GWVA_WIND_CLONE_BIT_FATHER_PTR    = 0
  245. GWVA_WIND_CLONE_BIT_NEXT_BROTHER_PTR= 1
  246. GWVA_WIND_CLONE_BIT_FIRST_SON_PTR    = 2
  247. GWVA_WIND_CLONE_BIT_NAME    = 3
  248. GWVA_WIND_CLONE_BIT_INFO    = 4
  249. GWVA_WIND_CLONE_BIT_ICON_WIND_PTR    = 5
  250. GWVA_WIND_CLONE_BIT_MENU_SPEC_PTR    = 6
  251. *GWVA_WIN_CLONE_BIT_KEY_TABLE    = 7
  252. GWVA_WIND_CLONE_BIT_SPEC_PTR    = 8
  253. GWVA_WIND_CLONE_BIT_USER_PTR1    = 9
  254. GWVA_WIND_CLONE_BIT_USER_PTR2    = 10
  255. GWVA_WIND_CLONE_BIT_DATA_PTR    = 16    ; WIND_BITMAP
  256. GWVA_WIND_CLONE_BIT_PAL_PTR    = 17    ; WIND_BITMAP
  257. GWVA_WIND_CLONE_BIT_SAVED_FORM_GIVEN= 20    ; WIND_FORM : 1 = pointeur sur la sauvegarde du formulaire dans GWVA_WFORM_OBJ_CLONE_FORM_SAVE
  258. GWVA_WIND_CLONE_BIT_DEF_OBJ_PTR_STRUCT= 21    ; pointeur des structures des objets des fenêtres formulaires
  259. GWVA_WIND_CLONE_BIT_RECURSE    = 31
  260.  
  261. GWVA_WIND_CLONE_MASK_FATHER_PTR    = 1<<GWVA_WIND_CLONE_BIT_FATHER_PTR
  262. GWVA_WIND_CLONE_MASK_NEXT_BROTHER_PTR= 1<<GWVA_WIND_CLONE_BIT_NEXT_BROTHER_PTR
  263. GWVA_WIND_CLONE_MASK_FIRST_SON_PTR    = 1<<GWVA_WIND_CLONE_BIT_FIRST_SON_PTR
  264. GWVA_WIND_CLONE_MASK_NAME    = 1<<GWVA_WIND_CLONE_BIT_NAME
  265. GWVA_WIND_CLONE_MASK_INFO    = 1<<GWVA_WIND_CLONE_BIT_INFO
  266. GWVA_WIND_CLONE_MASK_ICON_WIND_PTR    = 1<<GWVA_WIND_CLONE_BIT_ICON_WIND_PTR
  267. GWVA_WIND_CLONE_MASK_MENU_SPEC_PTR    = 1<<GWVA_WIND_CLONE_BIT_MENU_SPEC_PTR
  268. *GWVA_WIND_CLONE_MASK_KEY_TABLE    = 1<<GWVA_WIND_CLONE_BIT_KEY_TABLE
  269. GWVA_WIND_CLONE_MASK_SPEC_PTR    = 1<<GWVA_WIND_CLONE_BIT_SPEC_PTR
  270. GWVA_WIND_CLONE_MASK_USER_PTR1    = 1<<GWVA_WIND_CLONE_BIT_USER_PTR1
  271. GWVA_WIND_CLONE_MASK_USER_PTR2    = 1<<GWVA_WIND_CLONE_BIT_USER_PTR2
  272. GWVA_WIND_CLONE_MASK_DATA_PTR    = 1<<GWVA_WIND_CLONE_BIT_DATA_PTR
  273. GWVA_WIND_CLONE_MASK_PAL_PTR    = 1<<GWVA_WIND_CLONE_BIT_PAL_PTR
  274. GWVA_WIND_CLONE_MASK_SAVED_FORM_GIVEN= 1<<GWVA_WIND_CLONE_BIT_SAVED_FORM_GIVEN
  275. GWVA_WIND_CLONE_MASK_DEF_OBJ_PTR_STRUCT= 1<<GWVA_WIND_CLONE_BIT_DEF_OBJ_PTR_STRUCT
  276. GWVA_WIND_CLONE_MASK_RECURSE    = 1<<GWVA_WIND_CLONE_BIT_RECURSE
  277.  
  278. ;-------------------------------------------------------------------------
  279. ; Bits et masques pour la sauvegarde/restauration d'un arbre ressource
  280.  
  281. GWVA_RSC_OLBIT_SAVE_STATE    = 0    ; sauve l'état des objets et le caractère des BOXCHAR
  282. GWVA_RSC_OLBIT_SAVE_TEDINFO    = 1    ; sauve les TEDINFO
  283. GWVA_RSC_OLBIT_SAVE_TEXT    = 2    ; sauve les textes non éditables sauf le caractère des icones
  284. GWVA_RSC_OLBIT_SAVE_FTEXT    = 3    ; sauve les textes editables (texte+mise en forme+champ de saisie)
  285. GWVA_RSC_OLBIT_SAVE_BITBLK    = 4    ; sauve les BITBLK
  286. GWVA_RSC_OLBIT_SAVE_ICONBLK    = 5    : sauve les ICONBLK (+texte ?)
  287. GWVA_RSC_OLBIT_SAVE_CICONBLK    = 6    ; sauve les CICONBLK
  288. GWVA_RSC_OLBIT_SAVE_APPLBLK    = 7    ; sauve les APPLBLK
  289.  
  290. GWVA_RSC_MASK_SAVE_STATE    = 1<<(15-GWVA_RSC_OLBIT_SAVE_STATE)
  291. GWVA_RSC_MASK_SAVE_TEDINFO    = 1<<(15-GWVA_RSC_OLBIT_SAVE_TEDINFO)
  292. GWVA_RSC_MASK_SAVE_TEXT        = 1<<(15-GWVA_RSC_OLBIT_SAVE_TEXT)
  293. GWVA_RSC_MASK_SAVE_FTEXT    = 1<<(15-GWVA_RSC_OLBIT_SAVE_FTEXT)
  294. GWVA_RSC_MASK_SAVE_BITBLK    = 1<<(15-GWVA_RSC_OLBIT_SAVE_BITBLK)
  295. GWVA_RSC_MASK_SAVE_ICONBLK    = 1<<(15-GWVA_RSC_OLBIT_SAVE_ICONBLK)
  296. GWVA_RSC_MASK_SAVE_CICONBLK    = 1<<(15-GWVA_RSC_OLBIT_SAVE_CICONBLK)
  297. GWVA_RSC_MASK_SAVE_APPLBLK    = 1<<(15-GWVA_RSC_OLBIT_SAVE_APPLBLK)
  298.  
  299. GWVA_RSC_SAVE_BASE        = GWVA_RSC_MASK_SAVE_STATE|GWVA_RSC_MASK_SAVE_TEDINFO|GWVA_RSC_MASK_SAVE_TEXT|GWVA_RSC_MASK_SAVE_FTEXT
  300.  
  301. GWVA_RSC_OLBIT_RESTORE_STATE    = GWVA_RSC_OLBIT_SAVE_STATE
  302. GWVA_RSC_OLBIT_RESTORE_TEDINFO    = GWVA_RSC_OLBIT_SAVE_TEDINFO
  303. GWVA_RSC_OLBIT_RESTORE_TEXT    = GWVA_RSC_OLBIT_SAVE_TEXT
  304. GWVA_RSC_OLBIT_RESTORE_FTEXT    = GWVA_RSC_OLBIT_SAVE_FTEXT
  305. GWVA_RSC_OLBIT_RESTORE_BITBLK    = GWVA_RSC_OLBIT_SAVE_BITBLK
  306. GWVA_RSC_OLBIT_RESTORE_ICONBLK    = GWVA_RSC_OLBIT_SAVE_ICONBLK
  307. GWVA_RSC_OLBIT_RESTORE_CICONBLK    = GWVA_RSC_OLBIT_SAVE_ICONBLK
  308. GWVA_RSC_OLBIT_RESTORE_APPLBLK    = GWVA_RSC_OLBIT_SAVE_APPLBLK
  309.  
  310. GWVA_RSC_MASK_RESTORE_STATE    = GWVA_RSC_MASK_SAVE_STATE
  311. GWVA_RSC_MASK_RESTORE_TEDINFO    = GWVA_RSC_MASK_SAVE_TEDINFO
  312. GWVA_RSC_MASK_RESTORE_TEXT    = GWVA_RSC_MASK_SAVE_TEXT
  313. GWVA_RSC_MASK_RESTORE_FTEXT    = GWVA_RSC_MASK_SAVE_FTEXT
  314. GWVA_RSC_MASK_RESTORE_BITBLK    = GWVA_RSC_MASK_SAVE_BITBLK
  315. GWVA_RSC_MASK_RESTORE_ICONBLK    = GWVA_RSC_MASK_SAVE_ICONBLK
  316. GWVA_RSC_MASK_RESTORE_CICONBLK    = GWVA_RSC_MASK_SAVE_CICONBLK
  317. GWVA_RSC_MASK_RESTORE_APPLBLK    = GWVA_RSC_MASK_SAVE_APPLBLK
  318.  
  319. GWVA_RSC_RESTORE_BASE        = GWVA_RSC_MASK_RESTORE_STATE|GWVA_RSC_MASK_RESTORE_TEDINFO|GWVA_RSC_MASK_RESTORE_TEXT|GWVA_RSC_MASK_RESTORE_FTEXT
  320.  
  321. ;-------------------------------------------------------------------------
  322. ; Champs spécifiques à la fenêtre texte : properties/style/mode
  323.  
  324. GWVA_WTEXT_OLBIT_STYLE        = 0
  325. GWVA_WTEXT_OLBIT_CURSEUR    = 1
  326. GWVA_WTEXT_OLBIT_EDIT        = 2
  327. GWVA_WTEXT_OLBIT_PROPORTIONNAL    = 3    *no yet supported
  328.  
  329. GWVA_WTEXT_MASK_STYLE        = 1<<(15-GWVA_WTEXT_OLBIT_STYLE)
  330. GWVA_WTEXT_MASK_CURSEUR        = 1<<(15-GWVA_WTEXT_OLBIT_CURSEUR)
  331. GWVA_WTEXT_MASK_EDIT        = 1<<(15-GWVA_WTEXT_OLBIT_EDIT)
  332. GWVA_WTEXT_MASK_PROPORTIONNAL    = 1<<(15-GWVA_WTEXT_OLBIT_PROPORTIONNAL)
  333.  
  334. GWVA_WTEXT_STYLE_OLBIT_THICKENED    = 0
  335. GWVA_WTEXT_STYLE_OLBIT_BOLD    = GWVA_WTEXT_STYLE_OLBIT_THICKENED
  336. GWVA_WTEXT_STYLE_OLBIT_LIGHT    = 1
  337. GWVA_WTEXT_STYLE_OLBIT_SKEWED    = 2
  338. GWVA_WTEXT_STYLE_OLBIT_ITALIC    = GWVA_WTEXT_STYLE_OLBIT_SKEWED
  339. GWVA_WTEXT_STYLE_OLBIT_UNDERLINED    = 3
  340. GWVA_WTEXT_STYLE_OLBIT_INVERSE_VIDEO= 4
  341. GWVA_WTEXT_STYLE_OLBIT_SPECIAL_CHAR    = 5
  342. *GWVA_WTEXT_STYLE_OLBIT_COLOR    = 6     ; <- ERREUR - A VOIR
  343. GWVA_WTEXT_STYLE_OLBIT_COLOR    = 7     ; <- ERREUR - A VOIR
  344.  
  345. GWVA_WTEXT_STYLE_MASK_THICKENED    = 1<<(7-GWVA_WTEXT_STYLE_OLBIT_THICKENED)
  346. GWVA_WTEXT_STYLE_MASK_BOLD    = 1<<(7-GWVA_WTEXT_STYLE_OLBIT_BOLD)
  347. GWVA_WTEXT_STYLE_MASK_LIGHT    = 1<<(7-GWVA_WTEXT_STYLE_OLBIT_LIGHT)
  348. GWVA_WTEXT_STYLE_MASK_SKEWED    = 1<<(7-GWVA_WTEXT_STYLE_OLBIT_SKEWED)
  349. GWVA_WTEXT_STYLE_MASK_ITALIC    = 1<<(7-GWVA_WTEXT_STYLE_OLBIT_ITALIC)
  350. GWVA_WTEXT_STYLE_MASK_UNDERLINED    = 1<<(7-GWVA_WTEXT_STYLE_OLBIT_UNDERLINED)
  351. GWVA_WTEXT_STYLE_MASK_INVERSE_VIDEO    = 1<<(7-GWVA_WTEXT_STYLE_OLBIT_INVERSE_VIDEO)
  352. GWVA_WTEXT_STYLE_MASK_SPECIAL_CHAR    = 1<<(7-GWVA_WTEXT_STYLE_OLBIT_SPECIAL_CHAR)
  353. GWVA_WTEXT_STYLE_MASK_COLOR    = 3<<(7-GWVA_WTEXT_STYLE_OLBIT_COLOR)
  354.  
  355. GWVA_WTEXT_STYLE_COLOR_0    = 0
  356. GWVA_WTEXT_STYLE_COLOR_1    = 1<<(7-GWVA_WTEXT_STYLE_OLBIT_COLOR)
  357. GWVA_WTEXT_STYLE_COLOR_2    = 2<<(7-GWVA_WTEXT_STYLE_OLBIT_COLOR)
  358. GWVA_WTEXT_STYLE_COLOR_3    = 3<<(7-GWVA_WTEXT_STYLE_OLBIT_COLOR)
  359.  
  360. GWVA_WTEXT_MODE_CR_IS_CRLF    = 0
  361. GWVA_WTEXT_MODE_LF_IS_CRLF    = 1
  362. GWVA_WTEXT_FIELD_MODE        = 2
  363. GWVA_WTEXT_MODE_PRINT        = 0<<GWVA_WTEXT_FIELD_MODE
  364. GWVA_WTEXT_MODE_VT52        = 1<<GWVA_WTEXT_FIELD_MODE
  365. GWVA_WTEXT_MODE_ALLCHAR        = 2<<GWVA_WTEXT_FIELD_MODE
  366.  
  367. ;-------------------------------------------------------------------------
  368. ; Constantes définissant des constantes souvent usitées pour les gadgets/properties
  369.  
  370. GWVA_WIND_GADGETS_MINIMUM    = MASK_NAME|MASK_CLOSER|MASK_MOVER
  371. GWVA_WIND_GADGETS_MAXIMUM    = MASK_NAME|MASK_CLOSER|MASK_FULLER|MASK_MOVER|MASK_SIZER|MASK_UPARROW|MASK_DNARROW|MASK_VSLIDE|MASK_LFARROW|MASK_RTARROW|MASK_HSLIDE
  372. GWVA_WRSC_GADGETS_BASE        = MASK_NAME|MASK_CLOSER|MASK_FULLER|MASK_MOVER
  373. GWVA_WIND_PROPERTIES_BASE    = GWVA_WIND_MASK_COPYXY|GWVA_WIND_MASK_AUTODEL|GWVA_WIND_MASK_CTRLC|GWVA_WIND_MASK_CTRLV|GWVA_WIND_MASK_CTRLX
  374. *GWVA_WFORM_SAVE_BASE        = GWVA_WFORM_SAVE_MASK_STATE|GWVA_WFORM_SAVE_MASK_TEDINFO|GWVA_WFORM_SAVE_MASK_TEXT|GWVA_WFORM_SAVE_MASK_FTEXT|GWVA_WFORM_SAVE_MASK_STRUCT
  375.  
  376. ;-------------------------------------------------------------------------
  377. ; constantes pour la routine de calcul des formes 3D d'un objet formulaire
  378.  
  379. GWVA_RSC_CTE_EPAISSEUR_OUTLINED    = 3
  380. GWVA_RSC_CTE_EPAISSEUR_SHADOWED    = 3
  381. GWVA_RSC_CTE_EPAISSEUR_G_BUTTON    = 3
  382.  
  383. ;-------------------------------------------------------------------------
  384. ; Paramètres d'entrée pour les fonctions GWVA_NO_FSEL_CP_BSS_UPDATE_FORM & GWVA_CALL_FSEL_CP_BSS_UPDATE_FORM
  385.  
  386. GWVA_CFCBUF_COPY_NAME        = 0
  387. GWVA_CFCBUF_COPY_PATH        = 1
  388. GWVA_CFCBUF_COPY_PATHNAME    = 2
  389.  
  390. GWVA_CFCBUF_ALIGN_LEFT        = 0
  391. GWVA_CFCBUF_ALIGN_RIGHT        = 1
  392. GWVA_CFCBUF_ALIGN_CENTER    = 2
  393.  
  394. GWVA_CFCBUF_REDRAW_NO        = -1
  395. GWVA_CFCBUF_REDRAW_YES        = 1
  396.  
  397. ;-------------------------------------------------------------------------
  398. ; Paramètres de sortie de GWVA_WIND_TEST_IF_WIND_ICONIFIED
  399.  
  400. GWVA_WIND_CTE_ICONIFIED_YES    = 1
  401. GWVA_WIND_CTE_ICONIFIED_NO    = 2
  402.  
  403. ;-------------------------------------------------------------------------
  404. ; Les méthodes VISUAL
  405. ;-------------------------------------------------------------------------
  406.  
  407. ; Remarque : Dans la distribution de messages, ce n'est pas tous les ON_,
  408. ; puis toutes le méthodes et enfin tous les _ED !
  409.  
  410. ; Pour les méthodes distribuées directement à l'objet application (timer,mzone1/2...)
  411. ; le code de retour (D6) n'influence pas le traitement s'il n'y a pas de lien d'encapsulation
  412.  
  413. ; Une méthode ne peut renvoyer consumed/not_consumed que si elle a en entrée des
  414. ; paramètres lui permettant de savoir si elle doit ou non s'activer.
  415.  
  416. ; Sur un event_message (VA_START) on appelle la méthode si elle est présente avec
  417. ; le buffer GEM en entrée pointé par a1, a0 pointeur sur l'objet application, 
  418. ; le numéro du message dans d0.w.
  419. ;-------------------------------------------------------------------------
  420.  
  421. GWVA_MSG_LOG=$4567
  422. GWVA_MSG_LOG_ACK=$7654
  423.  
  424. GWVA_MSG_WRSC_REDRAW_PART=$7766
  425.  
  426. ; à voir
  427. *GWVA_METHOD_MULTIREDRAW    = GEM_MAX_MSG_NR+1
  428. *    ; Message interne pour les redraws du GWVA
  429.  
  430. GWVA_METHOD_BASE    = $00010000
  431.  
  432. ; Le BEFORE sert à :
  433. ;  - faire un traitement supplémentaire avant la méthode (doit renvoyer NOT_CONSUMED)
  434. ;  - empêcher le traitement de la méthode (doit renvoyer CONSUMED) ; dans ce cas pas d'AFTER
  435. ; L'AFTER sert à faire un traitement supplémentaire après la méthode si le traitement à eu lieu
  436. ;
  437. ; Le d6 renvoyé par la méthode est celui du traitement ou CONSUMED si le BEFORE a empêché
  438. ; l'action.
  439.  
  440. GWVA_METHOD_BIT_EVENT    = 29    ; sert uniquement à ajoutter des tests de cohérence de modes d'appel de search_exec
  441. GWVA_METHOD_BIT_BEFORE    = 30    ; out : d6 = CONSUMED : pas d'execution de la méthode
  442. GWVA_METHOD_BIT_AFTER    = 31
  443.  
  444. GWVA_METHOD_MASK_EVENT    = 1<<GWVA_METHOD_BIT_EVENT
  445. GWVA_METHOD_MASK_BEFORE    = 1<<GWVA_METHOD_BIT_BEFORE
  446. GWVA_METHOD_MASK_AFTER    = 1<<GWVA_METHOD_BIT_AFTER
  447.  
  448. GWVA_METHOD_PROPERTIES_OLBIT_COMMAND    = 0
  449.  
  450. GWVA_METHOD_PROPERTIES_MASK_COMMAND    = 1<<(7-GWVA_METHOD_PROPERTIES_OLBIT_COMMAND)
  451.  
  452. GWVA_METHOD_CTE_COMMAND_GOTO    = 1
  453.  
  454. ; première méthode (non Visual forcément) utilisable par le programmeur
  455. GWVA_CTE_FIRST_USER_METHOD     = GWVA_METHOD_BASE+$00020000
  456.  
  457.  
  458. *********************************************
  459. GWVA_METHODLIST_CONTINUED= GWVA_METHOD_BASE+1
  460.     ; What: Fausse méthode pointant sur une autre liste à utiliser pour
  461.     ; What: le parcours de recherche. Revient à un GOTO (pas un GOSUB !)
  462.  
  463. **********************************************
  464. GWVA_METHOD_CREATE    = GWVA_METHOD_BASE+$11
  465.     ; What: Message reçu à la création d'un nouvel objet
  466.     ; Who : *
  467.     ; Rq  : C'est le V.A qui alloue le handle, le met dans la structure
  468.     ; Rq  : puis appelle le CREATE.
  469.     ; Rq  : Si la méthode n'existe pas : le V.A s'arrète
  470.     ; Rq  : Si la méthode renvoie un code d'éxécution négatif : le V.A s'arrète
  471.     ; Rq  : Toute méthode create devrait tester que son père a bien fait le boulot.
  472.     ; Rq  : Il n'y a pas de BEFORE pour cette méthode ...
  473.     ; Rq  : Pour WAPP, cette méthode sera appelée pour ACC et PRG 
  474.     ; in  : a0.l = pointeur sur l'objet
  475.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  476.     ; out : d7.w = GWVA_NO_ERROR_GENERIC ou GWVA_ERROR_GENERIC
  477.  
  478. ;GWVA_METHOD_ON_CREATE n'existe pas !
  479. GWVA_METHOD_CREATED    = GWVA_METHOD_CREATE|GWVA_METHOD_MASK_AFTER
  480.     ; idem GWVA_METHOD_CREATE
  481.     ; in : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  482.  
  483. ; Pour l'objet GWVA_WIND_CLASS_APPLICATION, les paramètres d'entrée du CREATED
  484. ; sont :
  485. ; a1.l : pointeur sur la ligne de commande
  486. ; d0.w : longueur de la ligne de commande
  487.  
  488. **********************************************
  489. GWVA_METHOD_DELETE    = GWVA_METHOD_BASE+$12
  490.     ; What: Message demandant la destruction de l'objet
  491.     ; Who : *
  492.     ; Rq  : C'est le V.A qui rend le handle après avoir activé la méthode
  493.     ; Rq  : Il n'y a pas de AFTER pour cette méthode ...
  494.     ; Rq  : doit pouvoir être appelé sans erreur même si déjà effacé
  495.     ; in  : a0.l = pointeur sur l'objet
  496.     ; out : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  497.     ; out : d7.w = GWVA_NO_ERROR_GENERIC ou GWVA_ERROR_GENERIC
  498.  
  499. GWVA_METHOD_ON_DELETE    = GWVA_METHOD_DELETE|GWVA_METHOD_MASK_BEFORE
  500.     ; idem GWVA_METHOD_DELETE
  501.  
  502. ;GWVA_METHOD_DELETED n'existe pas !
  503.  
  504. **********************************************
  505. GWVA_METHOD_MOUSE_ZONE    = GWVA_METHOD_BASE+$21
  506.     ; What: Message reçu lors de l'entrée ou la sortie de la zone souris 1
  507.     ; Who : *
  508.     ; in  : a0.l = pointeur sur l'objet ayant demandé à être averti de cet évèment
  509.     ; in  : d0.w = X
  510.     ; in  : d1.w = Y
  511.     ; in  : d2.l = [ Key state.w | mouse button.w ]
  512.     ; out : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  513.  
  514. ; Aucune méthode ON_ ou _ED car cette méthode n'existe pas par défaut
  515.  
  516. **********************************************
  517. GWVA_METHOD_TIMER    = GWVA_METHOD_BASE+$22
  518.     ; What: Message reçu lors du débordement du timer
  519.     ; Who : *
  520.     ; Rq  : l'objet peut le redistribuer...
  521.     ; in  : a0.l = pointeur sur l'objet ayant demandé à être averti de cet évèment
  522.     ; out : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  523.  
  524. ; Aucune méthode ON_ ou _ED car cette méthode n'existe pas par défaut
  525.  
  526. ****************************************
  527. GWVA_METHOD_CLICK = GWVA_METHOD_BASE+$31
  528.     ; What: Traitement consécutif à la réception d'au moins un clic souris
  529.     ; What: quelqu'il soit (doite/gauche) dans une fenêtre
  530.     ; Who : GWVA_WIND_CLASS_APPLICATION
  531.     ; Rq  : Cette méthode reçoit le clic 'brute' de l'event_multi
  532.     ; in  : a0.l = pointeur sur l'objet
  533.     ; in  : d0.w = [ X.w ]
  534.     ; in  : d1.l = [ mouse button.w | Y.w ]
  535.     ; in  : d2.l = [ Key state.w | mouse count.w ]
  536.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  537.  
  538. GWVA_METHOD_ON_CLICK = GWVA_METHOD_CLICK|GWVA_METHOD_MASK_BEFORE
  539.     ; idem GWVA_METHOD_CLICK
  540.  
  541. GWVA_METHOD_CLICKED = GWVA_METHOD_CLICK|GWVA_METHOD_MASK_AFTER
  542.     ; idem GWVA_METHOD_CLICK
  543.     ; in : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  544.  
  545. ******************************************
  546. GWVA_METHOD_MESSAGE = GWVA_METHOD_BASE+$32
  547.     ; What: Traitement consécutif à la réception d'un message GEM
  548.     ; Who : GWVA_WIND_CLASS_APPLICATION
  549.     ; Rq  : La WAPP traite les messages par plages et les redistribue
  550.     ; in  : a0.l = pointeur sur l'objet
  551.     ; in  : a1.l = pointeur sur le buffer GEM
  552.     ; in  : a2.l = pointeur sur le buffer GEM étendu (si présent)
  553.     ; in  : d0.w = numéro du message GEM
  554.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  555.  
  556. GWVA_METHOD_ON_MESSAGE = GWVA_METHOD_MESSAGE|GWVA_METHOD_MASK_BEFORE
  557.     ; idem GWVA_METHOD_MESSAGE
  558.  
  559. GWVA_METHOD_MESSAGED = GWVA_METHOD_MESSAGE|GWVA_METHOD_MASK_AFTER
  560.     ; idem GWVA_METHOD_MESSAGE
  561.     ; in : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  562.  
  563. ***********************************************
  564. GWVA_METHOD_OPEN    = GWVA_METHOD_BASE+$101
  565.     ; What: Message reçu à l'ouverture de l'objet 
  566.     ; Who : GWVA_OBJ_CLASS_WINDOW
  567.     ; Rq  : ouverture de la station de travail pour une WAPP
  568.     ; Rq  : sera appelé automatiquement par le V.A avant un AC_OPEN du GEM
  569.     ; Rq  : l'ancien my_init devient un AFTER|OPEN pour un PRG
  570.     ; Rq  : Par contre, pour un accessoire, c'est un AFTER|CREATE
  571.     ; Rq  : Il n'existe pas de message GEM correspondant
  572.     ; in  : a0.l = pointeur sur l'objet
  573.     ; in  : d0.w = handle GEM de la fenêtre destinatrice
  574.     ; out : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  575.     ; out : d7.w = GWVA_NO_ERROR_GENERIC ou autre si erreur
  576.  
  577. GWVA_METHOD_ON_OPEN    = GWVA_METHOD_OPEN|GWVA_METHOD_MASK_BEFORE
  578.     ; idem GWVA_METHOD_OPEN
  579.  
  580. GWVA_METHOD_OPENED    = GWVA_METHOD_OPEN|GWVA_METHOD_MASK_AFTER
  581.     ; idem GWVA_METHOD_OPEN
  582.     ; in : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  583.  
  584. ***********************************************
  585. GWVA_METHOD_CLOSE    = WM_CLOSED
  586.     ; What: Message reçu à la fermeture de l'objet 
  587.     ; Who : GWVA_OBJ_CLASS_WINDOW
  588.     ; Rq  : Fermeture de la station de travail pour une WAPP
  589.     ; Rq  : Peut être un WM_CLOSED reçu du système ou un close généré.
  590.     ; in  : a0.l = pointeur sur l'objet
  591.     ; in  : d0.w = handle GEM de la fenêtre destinatrice
  592.     ; out : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  593.     ; out : d7.w = GWVA_NO_ERROR_GENERIC ou autre si erreur
  594.  
  595. GWVA_METHOD_ON_CLOSE    = GWVA_METHOD_CLOSE|GWVA_METHOD_MASK_BEFORE
  596.     ; idem GWVA_METHOD_CLOSE
  597.  
  598. GWVA_METHOD_CLOSED    = GWVA_METHOD_CLOSE|GWVA_METHOD_MASK_AFTER
  599.     ; idem GWVA_METHOD_CLOSE
  600.     ; in : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  601.  
  602. ********************************************
  603. GWVA_METHOD_KEYPRESS = GWVA_METHOD_BASE+$103
  604.     ; What: Message reçu lors de l'appui sur une touche (GEM)
  605.     ; Who : GWVA_OBJ_CLASS_WINDOW
  606.     ; Rq  : La fenêtre application le reçoit et le redistribue à sa fenêtre
  607.     ; Rq  : GEM focusée. Cette dernière le redistribue à sa fille focusée, etc.
  608.     ; Rq  : A chaque niveau, le fenêtre regarde dans son menu puis dans son
  609.     ; Rq  : contenu si plus de win focus en dessous ou alors keypressed de sa fille
  610.     ; Rq  : Cette méthode appelera les méthodes WIND_FORM_KEYB et FORM_KEYPRESS qui pour un
  611.     ; Rq  : objet formulaire texte et génèrera les évènements CHANGED, LOST_FOCUS ...
  612.     ; Rq  : si le formulaire ne contient pas champ éditable et défault non activé
  613.     ; Rq  : =>on génère alors un KEYPRESSED.
  614.     ; Rq  : Le ON_KEYPRESS ainsie que le KEYPRESSED
  615.     ; Rq  : Si donné à l'objet application d6 = forcément CONSUMED
  616.     ; in  : a0.l = pointeur sur l'objet
  617.     ; in  : d0.w = Key code
  618.     ; in  : d1.w = Key state
  619.     ; out : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  620.  
  621. GWVA_METHOD_ON_KEYPRESS = GWVA_METHOD_KEYPRESS|GWVA_METHOD_MASK_BEFORE
  622.     ; idem GWVA_METHOD_KEYPRESS
  623.  
  624. GWVA_METHOD_KEYPRESSED = GWVA_METHOD_KEYPRESS|GWVA_METHOD_MASK_AFTER
  625.     ; idem GWVA_METHOD_KEYPRESS
  626.     ; in : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  627.  
  628. **************************************************
  629. *GWVA_METHOD_WIND_KEYPRESS = GWVA_METHOD_BASE+$101
  630. *    ; What: Message reçu lors de l'appui sur une touche
  631. *    ; Who : GWVA_OBJ_CLASS_WINDOW
  632. *    ; in  : a0 : pointeur sur l'objet
  633. *    ; in  : d0.w = Key code
  634. *    ; in  : d1.w = Key state
  635. *    ; out : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  636. *
  637. *GWVA_METHOD_ON_WIND_KEYPRESS = GWVA_METHOD_WIND_KEYPRESS|GWVA_METHOD_MASK_BEFORE
  638. *    ; idem GWVA_METHOD_WIND_KEYPRESS
  639. *
  640. *GWVA_METHOD_WIND_KEYPRESSED = GWVA_METHOD_WIND_KEYPRESS|GWVA_METHOD_MASK_AFTER
  641. *    ; idem GWVA_METHOD_WIND_KEYPRESS
  642.  
  643. **********************************************
  644. GWVA_METHOD_WIND_CLICK = GWVA_METHOD_BASE+$104
  645.     ; What: Traitement consécutif à un simple/double/... clic souris
  646.     ; What: quel qu'il soit (doite/gauche) dans une fenêtre
  647.     ; Who : GWVA_OBJ_CLASS_WINDOW
  648.     ; Rq  : Le click+before est généré avant la distribution au contenu
  649.     ; Rq  : Ce n'est pas cette méthode qu'il faut appeler pour générer soi-même
  650.     ; Rq  : un clic artificel. (Appeler la méthode qui formate l'interface avant)
  651.     ; in  : a0.l = pointeur sur l'objet
  652.     ; in  : d0.l = [ X.w | handle fenêtre gem.w ]
  653.     ; in  : d1.l = [ Y.w | mouse button.w ]
  654.     ; in  : d2.l = [ Key state.w | mouse count.w ]
  655.     ; out : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  656.  
  657. GWVA_METHOD_ON_WIND_CLICK = GWVA_METHOD_WIND_CLICK|GWVA_METHOD_MASK_BEFORE
  658.     ; idem GWVA_METHOD_WIND_CLICK
  659.  
  660. GWVA_METHOD_WIND_CLICKED = GWVA_METHOD_WIND_CLICK|GWVA_METHOD_MASK_AFTER
  661.     ; idem GWVA_METHOD_WIND_CLICK
  662.     ; in : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  663.  
  664. ********************************************************
  665. GWVA_METHOD_WIND_CREATE_CONTENTS = GWVA_METHOD_BASE+$105
  666.     ; What: Initialisation du contenu d'une fenêtre
  667.     ; What: Calcul des tailles internes et des pointeurs spécifiques
  668.     ; Who : GWVA_OBJ_CLASS_WINDOW
  669.     ; Rq  : Renseigne les champs GWVA_WIND_OBJ_CONTENTS_W/H
  670.     ; in  : a0.l = pointeur sur l'objet
  671.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  672.     ; out : d7.w = GWVA_ERROR_GENERIC ou GWVA_NO_ERROR_GENERIC
  673.  
  674. ; Pour les WFORM : Initialise l'objet focusé
  675.  
  676. GWVA_METHOD_WIND_CONTENTS_CREATED = GWVA_METHOD_WIND_CREATE_CONTENTS|GWVA_METHOD_MASK_AFTER
  677.     ; idem GWVA_METHOD_WIND_CREATE_CONTENTS
  678.     ; in : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  679.  
  680. ********************************************************
  681. GWVA_METHOD_WIND_DELETE_CONTENTS = GWVA_METHOD_BASE+$106
  682.     ; What: Destruction du contenu d'une fenêtre
  683.     ; Who : GWVA_OBJ_CLASS_WINDOW
  684.     ; Rq  : libère le contenu spécifique (FORM,TEXT ...)
  685.     ; Rq  : doit pouvoir être appelé sans erreur même si déjà effacé
  686.     ; in  : a0.l = pointeur sur l'objet
  687.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  688.  
  689. GWVA_METHOD_WIND_ON_DELETE_CONTENTS = GWVA_METHOD_WIND_DELETE_CONTENTS|GWVA_METHOD_MASK_BEFORE
  690.     ; idem GWVA_METHOD_WIND_DELETE_CONTENTS
  691.  
  692. ;GWVA_METHOD_WIND_CONTENTS_DELETED n'existe pas !
  693.  
  694. ********************************************************
  695. GWVA_METHOD_WIND_REDRAW_CONTENTS_BOX = GWVA_METHOD_BASE+$107
  696.     ; What: Ordre de redessin d'une partie du contenu d'une fenêtre
  697.     ; Who : GWVA_OBJ_CLASS_WINDOW
  698.     ; Rq  : Cela correspond à un redessin élémentaire GEM, il n'y a donc
  699.     ; Rq  : pas lieu de redécouper la zone.
  700.     ; Rq  : Le clipping n'a pas été fait puisqu'il n'est pas nécesaire pour
  701.     ; Rq  : tous les types de fenêtres
  702.     ; in  : a0.l = pointeur sur l'objet
  703.     ; in  : d0.w = x
  704.     ; in  : d1.w = y
  705.     ; in  : d2.l = [ width.w | height.w ]
  706.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  707.  
  708. GWVA_METHOD_ON_WIND_REDRAW_CONTENTS_BOX = GWVA_METHOD_WIND_REDRAW_CONTENTS_BOX|GWVA_METHOD_MASK_BEFORE
  709.     ; idem GWVA_METHOD_WIND_REDRAW_CONTENTS_BOX
  710.  
  711. GWVA_METHOD_WIND_CONTENTS_BOX_REDRAWN = GWVA_METHOD_WIND_REDRAW_CONTENTS_BOX|GWVA_METHOD_MASK_AFTER
  712.     ; idem GWVA_METHOD_WIND_REDRAW_CONTENTS_BOX
  713.  
  714. ***************************************************
  715. GWVA_METHOD_WIND_SET_VSLIDER = GWVA_METHOD_BASE+$109
  716.     ; What: Méthode pour déterminer la position du slider vertical de la
  717.     ; What: fenêtre et le met à jour si nécessaire
  718.     ; Who : GWVA_OBJ_CLASS_WINDOW
  719.     ; Rq  : -
  720.     ; in  : a0.l = pointeur sur l'objet fenêtre
  721.     ; in  : d0.w = hauteur total de la page
  722.     ; in  : d1.w = indice de la première ligne vue
  723.     ; in  : d2.w = hauteur vue de la page
  724.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  725.  
  726. ***************************************************
  727. GWVA_METHOD_WIND_SET_HSLIDER = GWVA_METHOD_BASE+$10A
  728.     ; What: Méthode pour déterminer la position du slider horizontal de la
  729.     ; What: fenêtre et le met à jour si nécessaire
  730.     ; Who : GWVA_OBJ_CLASS_WINDOW
  731.     ; Rq  : -
  732.     ; in  : a0.l = pointeur sur l'objet fenêtre
  733.     ; in  : d0.w = largeur total de la page
  734.     ; in  : d1.w = indice de la première colonne vue
  735.     ; in  : d2.w = largeur vue de la page
  736.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  737.  
  738. *****************************************************
  739. GWVA_METHOD_WIND_CALC_SLIDERS = GWVA_METHOD_BASE+$10B
  740.     ; What: Méthode pour recalculer la taille et position d'une fenêtre
  741.     ; What: et les actualiser si nécessaire
  742.     ; Who : GWVA_OBJ_CLASS_WINDOW
  743.     ; Rq  : -
  744.     ; in  : a0.l = pointeur sur l'objet fenêtre
  745.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  746.  
  747. *******************************************************
  748. GWVA_METHOD_WIND_NAMIFY_UNAMIFY = GWVA_METHOD_BASE+$10C
  749.     ; What: Méthode pour namifier une fenêtre (ne laisser que le titre/info)
  750.     ; Who : GWVA_OBJ_CLASS_WINDOW
  751.     ; Rq  : Ne peut pas s'appliquer à une fenêtre avec des sliders sous peine
  752.     ; Rq  : de bugs graphiques importants
  753.     ; in  : a0.l = pointeur sur l'objet fenêtre
  754.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  755.  
  756. ************************************************************
  757. GWVA_METHOD_WIND_REDRAW_ALL_CONTENTS = GWVA_METHOD_BASE+$10D
  758.     ; What: Méthode pour effectuer le redraw de tout le contenu d'une fenêtre
  759.     ; Who : GWVA_OBJ_CLASS_WINDOW
  760.     ; Rq  : La demande de dessin se fera via le pipe GEM
  761.     ; in  : a0.l = pointeur sur l'objet fenêtre
  762.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  763.  
  764. *************************************************************
  765. GWVA_METHOD_WIND_REDRAW_PART_CONTENTS = GWVA_METHOD_BASE+$10E
  766.     ; What: Méthode pour effectuer le redraw d'une partie XYWH du contenu 
  767.     ; What: d'une fenêtre.
  768.     ; Who : GWVA_OBJ_CLASS_WINDOW
  769.     ; Rq  : La demande de dessin se fera via le pipe GEM
  770.     ; in  : a0.l = pointeur sur l'objet fenêtre
  771.     ; in  : d0.w = x
  772.     ; in  : d1.w = y
  773.     ; in  : d2.l = [ width.w | height.w ] de la zone à redessiner
  774.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  775.  
  776. ****************************************************
  777. GWVA_METHOD_WIND_SET_PALETTE = GWVA_METHOD_BASE+$10F
  778.     ; What: Méthode pour effectuer le changement de palette couleur
  779.     ; What: d'une fenêtre.
  780.     ; Who : GWVA_OBJ_CLASS_WINDOW
  781.     ; Rq  : Seule la classe BITMAP contient cette méthode pour le moment
  782.     ; in  : a0.l = pointeur sur l'objet fenêtre
  783.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  784.  
  785. **************************************************************
  786. GWVA_METHOD_WIND_MOVE_SLIDERS_WITH_KEY = GWVA_METHOD_BASE+$110
  787.     ; What: Méthode transformant les touches de flêche en un évènement arrowed
  788.     ; Who : GWVA_OBJ_CLASS_WINDOW
  789.     ; Rq  : Seule les classes BITMAP et TEXT contienentt cette méthode 
  790.     ; Rq  : pour le moment.
  791.     ; in  : a0.l = pointeur sur l'objet fenêtre
  792.     ; in  : d0.w = [ Key code.w | Ascii code ] de la touche
  793.     ; out : d6.w = GWVA_PRGRET_CONSUMED ou GWVA_PRGRET_NOT_CONSUMED
  794.  
  795. **************************************************************
  796. GWVA_METHOD_WRSC_REDRAW_PART_CONTENTS = GWVA_METHOD_BASE+$121
  797.     ; What: Méthode pour effectuer le redraw d'une liste d'objets FORM
  798.     ; Who : GWVA_WRSC_CLASS_FORM
  799.     ; Rq  : La demande de dessin se fera via le pipe GEM
  800.     ; Rq  : C'est un message spécial étendu qui sera envoyé : GWVA_MSG_REDRAW_PART
  801.     ; in  : a0.l = pointeur sur l'objet fenêtre formulaire
  802.     ; in  : a1.l = pointeur sur un buffer liste de objet/profondeur
  803.     ;       terminée par GWVA_WFORM_CTE_REDRAW_PART_END_LIST
  804.     ;       aucune limite sur la taille du buffer pointé par a1:
  805.     ;       on morcellera si nécéssaire
  806.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  807.  
  808. *****************************************************
  809. GWVA_METHOD_WFORM_CLEAR_FOCUS = GWVA_METHOD_BASE+$122
  810.     ; What: Méthode ordonnant d'effacer son focus à fenêtre formulaire 
  811.     ; Who : GWVA_WRSC_CLASS_FORM
  812.     ; Rq  : Appelée par GWVA_METHOD_WIND_CLICK ou GWVA_METHOD_WIND_KEYPRESS
  813.     ; Rq  : Elle peut être appelée même s'il n'y a pas de focus mais => erreur
  814.     ; Rq  : Elle appelle un FORM_RELEASE_FOCUS puis un FORM_HIDE_FOCUS
  815.     ; in  : a0.l = pointeur sur l'objet fenêtre devant perdre le focus
  816.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  817.     ; out : d7.w = GWVA_NO_ERROR_GENERIC ou GWVA_ERROR_GENERIC
  818.  
  819. GWVA_METHOD_ON_WFORM_CLEAR_FOCUS = GWVA_METHOD_WFORM_CLEAR_FOCUS|GWVA_METHOD_MASK_BEFORE
  820.     ; idem GWVA_METHOD_WFORM_CLEAR_FOCUS
  821.  
  822. GWVA_METHOD_WFORM_FOCUS_CLEARED = GWVA_METHOD_WFORM_CLEAR_FOCUS|GWVA_METHOD_MASK_AFTER
  823.     ; idem GWVA_METHOD_WFORM_CLEAR_FOCUS
  824.     ; in : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  825.  
  826. ***************************************************
  827. GWVA_METHOD_WFORM_SET_FOCUS = GWVA_METHOD_BASE+$123
  828.     ; What: Méthode ordonnant à une fenêtre formulaire d'initialiser son focus
  829.     ; Who : GWVA_WRSC_CLASS_FORM
  830.     ; Rq  : Appelée par GWVA_METHOD_WIND_CLICK ou GWVA_METHOD_WIND_KEYPRESS
  831.     ; Rq  : Elle peut être appelée même s'il y a déjà un focus mais => erreur
  832.     ; Rq  : Elle appelle un FORM_CATCH_FOCUS puis un FORM_SHOW_FOCUS
  833.     ; Rq  : Si le set focus échoue, à vous de le remettre sur l'ancien !
  834.     ; in  : a0.l = pointeur sur l'objet fenêtre devant gagner le focus
  835.     ; in  : d0.w = index ressource de l'objet
  836.     ; in  : d1.w = position du curseur (pour fin de ligne : GWVA_WFORM_CTE_FOCUSED_IDX_CURSOR_POS_UNDEF)
  837.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  838.     ; out : d7.w = GWVA_NO_ERROR_GENERIC ou GWVA_ERROR_GENERIC
  839.  
  840. GWVA_METHOD_ON_WFORM_SET_FOCUS = GWVA_METHOD_WFORM_SET_FOCUS|GWVA_METHOD_MASK_BEFORE
  841.     ; idem GWVA_METHOD_WFORM_SET_FOCUS
  842.  
  843. GWVA_METHOD_WFORM_FOCUS_SET = GWVA_METHOD_WFORM_SET_FOCUS|GWVA_METHOD_MASK_AFTER
  844.     ; idem GWVA_METHOD_WFORM_SET_FOCUS
  845.     ; in : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  846.  
  847. ****************************************************
  848. GWVA_METHOD_WFORM_HIDE_FOCUS = GWVA_METHOD_BASE+$124
  849.     ; What: Méthode ordonnant à une fenêtre formulaire de cacher son focus
  850.     ; Who : GWVA_WRSC_CLASS_FORM
  851.     ; Rq  : Appelée par GWVA_METHOD_WFORM_CLEAR_FOCUS
  852.     ; Rq  : Elle peut être appelée même s'il n'y a pas de focus mais => erreur
  853.     ; in  : a0.l = pointeur sur l'objet fenêtre devant effacer le focus
  854.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  855.     ; out : d7.w = GWVA_NO_ERROR_GENERIC ou GWVA_ERROR_GENERIC
  856.  
  857. ****************************************************
  858. GWVA_METHOD_WFORM_SHOW_FOCUS = GWVA_METHOD_BASE+$125
  859.     ; What: Méthode ordonnant à une fenêtre formulaire de montrer son focus
  860.     ; Who : GWVA_WRSC_CLASS_FORM
  861.     ; Rq  : Appelée par GWVA_METHOD_WFORM_SET_FOCUS
  862.     ; Rq  : Elle peut être appelée même s'il y a déjà un focus mais => erreur
  863.     ; in  : a0.l = pointeur sur l'objet fenêtre devant afficher le focus
  864.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  865.     ; out : d7.w = GWVA_NO_ERROR_GENERIC ou GWVA_ERROR_GENERIC
  866.  
  867. **************************************************************
  868. GWVA_METHOD_WRSC_UPDATE = GWVA_METHOD_BASE+$126
  869.     ; What: Message reçu pour la mise à jour du menu (position et contenu)
  870.     ; Who : GWVA_CLASS_WIND.RSC
  871.     ; Rq  : -
  872.     ; in  : a0.l = pointeur sur l'objet fenêtre
  873.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  874.  
  875. GWVA_METHOD_ON_WRSC_UPDATE = GWVA_METHOD_WRSC_UPDATE|GWVA_METHOD_MASK_BEFORE
  876.     ; idem GWVA_METHOD_WRSC_UPDATE
  877.  
  878. GWVA_METHOD_WRSC_UPDATED = GWVA_METHOD_WRSC_UPDATE|GWVA_METHOD_MASK_AFTER
  879.     ; idem GWVA_METHOD_WRSC_UPDATE
  880.  
  881. **************************************************************
  882. GWVA_METHOD_WRSC_IDX_UNDER_XY = GWVA_METHOD_BASE+$127
  883.     ; What: Renvoie l'index de l'objet sous l'emplacement x,y, ainsi
  884.     ; What: que l'index du père de cet objet
  885.     ; Who : GWVA_CLASS_WIND.RSC
  886.     ; Rq  : -
  887.     ; in  : a0.l = pointeur sur l'objet fenêtre
  888.     ; in  : a1.l = pointeur où ranger les deux index
  889.     ; out : (a1) = idx de l'objet RSC
  890.     ; out : 2(a1) = idx de l'objet RSC père
  891.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  892.     ; out : d7.w = GWVA_NO_ERROR_GENERIC ou
  893.     ;       GWVA_WRSC_CTE_NO_RSC_OBJECT si pas d'objet RSC
  894.  
  895. *************************************************
  896. GWVA_METHOD_WAPP_LOAD_RSC = GWVA_METHOD_BASE+$131
  897.     ; What: Méthode chargeant le ressource de l'objet application
  898.     ; Who : GWVA_WIND_CLASS_APPLICATION
  899.     ; Rq  : Appelée par GWVA_METHOD_CREATE de l'application
  900.     ; in  : a0.l = pointeur sur l'objet
  901.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  902.     ; out : d7.w = GWVA_NO_ERROR_GENERIC ou erreur spécifique
  903.  
  904. ***************************************************
  905. GWVA_METHOD_WAPP_UNLOAD_RSC = GWVA_METHOD_BASE+$132
  906.     ; What: Méthode déchargeant le ressource de l'objet application
  907.     ; Who : GWVA_WIND_CLASS_APPLICATION
  908.     ; Rq  : Appelée par GWVA_METHOD_DELETEE de l'application
  909.     ; in  : a0.l = pointeur sur l'objet
  910.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  911.     ; out : d7.w = GWVA_NO_ERROR_GENERIC ou erreur spécifique
  912.  
  913. ****************************************************
  914. GWVA_METHOD_WAPP_SET_RIGHT_PALETTE = GWVA_METHOD_BASE+$133
  915.     ; What: Méthode pour effectuer le changement de palette couleur.
  916.     ; Who : GWVA_OBJ_CLASS_APPLICATION
  917.     ; Rq  : Appelle la méthode SET_PALETTE de la fenêtre TOP.
  918.     ; Rq  : Si la fenêtre TOP n'est pas une fenêtre VA ou si elle
  919.     ; Rq  : ne contient pas la méthode SET_PALETTE, la palette du 
  920.     ; Rq  : bureau est utilisée.
  921.     ; in  : a0.l = pointeur sur l'objet
  922.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  923.  
  924. ***********************************************
  925. GWVA_METHOD_MENU_SELECT = GWVA_METHOD_BASE+$141
  926.     ; What: Méthode activant l'appel de la routine associée à un clic menu
  927.     ; Who : GWVA_CLASS_MENU
  928.     ; Rq  : -
  929.     ; in  : a0.l = pointeur objet menu
  930.     ; in  : a1.l = pointeur sur le buffer message GEM
  931.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  932.     ; out : d7.w = GWVA_NO_ERROR_GENERIC ou GWVA_ERROR_GENERIC si pas trouvé
  933.  
  934. GWVA_METHOD_ON_MENU_SELECT = GWVA_METHOD_MENU_SELECT|GWVA_METHOD_MASK_BEFORE
  935.     ; idem GWVA_METHOD_MENU_SELECT
  936.  
  937. GWVA_METHOD_MENU_SELECTED = GWVA_METHOD_MENU_SELECT|GWVA_METHOD_MASK_AFTER
  938.     ; idem GWVA_METHOD_MENU_SELECT
  939.  
  940. ***********************************************
  941. GWVA_METHOD_MENU_UPDATE = GWVA_METHOD_BASE+$142
  942.     ; What: Message reçu pour la mise à jour du menu (position et contenu)
  943.     ; Who : GWVA_CLASS_MENU
  944.     ; Rq  : -
  945.     ; in  : a0.l = pointeur objet menu
  946.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  947.  
  948. GWVA_METHOD_ON_MENU_UPDATE = GWVA_METHOD_MENU_UPDATE|GWVA_METHOD_MASK_BEFORE
  949.     ; idem GWVA_METHOD_MENU_UPDATE
  950.  
  951. GWVA_METHOD_MENU_UPDATED = GWVA_METHOD_MENU_UPDATE|GWVA_METHOD_MASK_AFTER
  952.     ; idem GWVA_METHOD_MENU_UPDATE
  953.  
  954. **********************************************
  955. GWVA_METHOD_MENU_CLICK = GWVA_METHOD_BASE+$143
  956.     ; What: Message reçu lors d'un appui sur un bouton de la souris (GEM)
  957.     ; Who : GWVA_CLASS_MENU
  958.     ; Rq  : On recherche si le click s'est déroulé dans le menu ou dans les flêches
  959.     ; Rq  : si pas trouvé, renvoi NOT_CONSUMED dans D6.
  960.     ; in  : a0.l = pointeur objet menu
  961.     ; in  : a1.l = pointeur sur l'objet fenêtre contenant le menu
  962.     ; in  : d0.l = [ X.w | handle fenêtre gem.w ]
  963.     ; in  : d1.l = [ mouse button.w | Y.w ]
  964.     ; in  : d2.l = [ Key state.w | mouse count.w ]
  965.     ; out : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  966.  
  967. GWVA_METHOD_ON_MENU_CLICK = GWVA_METHOD_MENU_CLICK|GWVA_METHOD_MASK_BEFORE
  968.     ; idem GWVA_METHOD_MENU_CLICK
  969.  
  970. GWVA_METHOD_MENU_CLICKED = GWVA_METHOD_MENU_CLICK|GWVA_METHOD_MASK_AFTER
  971.     ; idem GWVA_METHOD_MENU_CLICK
  972.  
  973. **********************************************
  974. GWVA_METHOD_MENU_REDRAW_ALL_CONTENTS = GWVA_METHOD_BASE+$144
  975.     ; What: Méthode demandant le redessin du menu
  976.     ; Who : GWVA_CLASS_MENU
  977.     ; Rq  : -
  978.     ; in  : a0.l = pointeur sur objet menu
  979.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  980.     ; out : d7.w = GWVA_NO_ERROR_GENERIC ou GWVA_ERROR_ROOT_APPL_WRITE_FAILED si
  981.     ;       le message n'a pu être délivré
  982.  
  983. *****************************************************
  984. GWVA_METHOD_MENU_MZONE_TITLE = GWVA_METHOD_BASE+$145
  985.     ; What: Message reçu pour la gestion de la sortie du title
  986.     ; Who : GWVA_CLASS_MENU
  987.     ; Rq  : -
  988.     ; in  : a0.l = pointeur sur objet menu
  989.     ; in  : d0.w = x souris
  990.     ; in  : d1.w = y souris
  991.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  992.  
  993. *****************************************************
  994. GWVA_METHOD_MENU_ITEM_SELECTED = GWVA_METHOD_BASE+$146
  995.     ; What: Méthode appelée par la fenêtre popup lors d'une sélection d'un item
  996.     ; Who : GWVA_CLASS_MENU
  997.     ; Rq  : -
  998.     ; in  : a0.l = pointeur sur objet menu
  999.     ; in  : d0.w = index de l'objet sélectionné
  1000.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1001.  
  1002. ***********************************************
  1003. GWVA_METHOD_MENU_CHECK = GWVA_METHOD_BASE+$147
  1004.     ; What: Gestion de la marque de check
  1005.     ; Who : GWVA_CLASS_MENU
  1006.     ; Rq  : -
  1007.     ; in  : a0.l = pointeur sur un objet menu
  1008.     ; in  : d0.w = mode d'activation
  1009.     ;       GWVA_MENU_CTE_UNCHECK
  1010.     ;       GWVA_MENU_CTE_CHECK
  1011.     ;       GWVA_MENU_CTE_CHANGE_CHECK
  1012.     ;       GWVA_MENU_CTE_TEST_CHECK
  1013.     ; in  : d1.w = index de l'item à checker
  1014.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1015.     ; out : d7.w = état du check avant
  1016.     ;       GWVA_MENU_CTE_UNCHECK
  1017.     ;       GWVA_MENU_CTE_CHECK
  1018.  
  1019. *********************************************************
  1020. GWVA_METHOD_WTEXT_WRITE_IN_BUFFER = GWVA_METHOD_BASE+$151
  1021.     ; What: Méthode pour écrire une chaine dans le buffer de la fenêtre.
  1022.     ; Who : GWVA_CLASS_WIND.TEXT
  1023.     ; Rq  : Aucun affichage n'est effectué après cette méthode
  1024.     ; in  : a0.l = pointeur sur l'objet fenêtre
  1025.     ; in  : a1.l = pointeur sur le texte (terminé par un 0.b)
  1026.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1027.  
  1028. *********************************************************
  1029. GWVA_METHOD_WTEXT_WRITE_IN_WINDOW = GWVA_METHOD_BASE+$152
  1030.     ; What: Méthode pour écrire une chaine dans la fenêtre avec un
  1031.     ; What: affichage immédiat
  1032.     ; Who : GWVA_CLASS_WIND.TEXT
  1033.     ; Rq  : -
  1034.     ; in  : a0.l = pointeur sur l'objet fenêtre
  1035.     ; in  : a1.l = pointeur sur le texte (terminé par un 0.b)
  1036.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1037.  
  1038. ******************************************************
  1039. GWVA_METHOD_WTEXT_WRITE_BUFFER = GWVA_METHOD_BASE+$153
  1040.     ; What: Méthode pour écrire le buffer texte dans la fenêtre
  1041.     ; Who : GWVA_CLASS_WIND.TEXT
  1042.     ; Rq  : -
  1043.     ; in  : a0.l = pointeur sur l'objet fenêtre
  1044.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1045.  
  1046. ******************************************************
  1047. GWVA_METHOD_WTEXT_CLEAR_BUFFER = GWVA_METHOD_BASE+$154
  1048.     ; What: Méthode pour effacer le buffer et réaliser un HOME
  1049.     ; Who : GWVA_CLASS_WIND.TEXT
  1050.     ; Rq  : Pour avoir une visualisation de l'effacement du buffer (réactualisation
  1051.     ; Rq  : des sliders, affichage ...) il faut appeler la méthode :
  1052.     ; Rq  : GWVA_METHOD_WTEXT_WRITE_BUFFER
  1053.     ; in  : a0.l = pointeur sur l'objet fenêtre
  1054.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1055.  
  1056. *****************************************************************
  1057. GWVA_METHOD_WTEXT_CLEAR_BUFFER_AND_UPDATE = GWVA_METHOD_BASE+$155
  1058.     ; What: Méthode pour effacer le buffer, réaliser un HOME et mettre à jour 
  1059.     ; What: l'affichage.
  1060.     ; Who : GWVA_CLASS_WIND.TEXT
  1061.     ; Rq  : -
  1062.     ; in  : a0.l = pointeur sur l'objet fenêtre
  1063.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1064.  
  1065. **************************************************************
  1066. GWVA_METHOD_WTEXT_CORRECT_VISIBLE_SIZES = GWVA_METHOD_BASE+$156
  1067.     ; What:  Méthode pour corriger la taille visible de la fenêtre texte
  1068.     ; What:  (remise à une taille multiple d'un caractère)
  1069.     ; Who : GWVA_CLASS_WIND.TEXT
  1070.     ; Rq  : -
  1071.     ; in  : a0.l = pointeur objet
  1072.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1073.     ; out : d7.w = GWVA_NO_ERROR_GENERIC
  1074.  
  1075. *************************************************
  1076. GWVA_METHOD_FORM_KEYPRESS = GWVA_METHOD_BASE+$201
  1077.     ; What: Message reçu lors de l'appui sur une touche
  1078.     ; Who : GWVA_OBJ_CLASS_FORM_OBJ
  1079.     ; Rq  : La fenêtre application le reçoit et le redistribue à sa fenêtre
  1080.     ; Rq  : GEM focusée. Cette dernière le redistribue à sa fille focusée, etc.
  1081.     ; Rq  : A chaque niveau, le fenêtre regarde dans son menu puis dans son
  1082.     ; Rq  : contenu si plus de win focus en dessous ou alors keypressed de sa fille
  1083.     ; Rq  : Cette méthode appelera les méthodes FORM_KEYB et OBJC_EDIT pour un
  1084.     ; Rq  : objet formulaire texte et génèrera les évènements CHANGED, LOST_FOCUS ...
  1085.     ; Rq  : si le formulaire ne contient pas champ éditable et défault non activé =>
  1086.     ; Rq  : on génère alors un KEYPRESSED.
  1087.     ; Rq  : Le ON_KEYPRESS est exécuté tout le temps alors que le KEYPRESSED ne l'est
  1088.     ; Rq  : que si keypress_fille/resultat_contenu dit NOT_CONSUMED.
  1089.     ; in  : a0.l = pointeur sur l'objet
  1090.     ; in  : a1.l = pointeur sur la fenêtre formulaire contenant l'objet
  1091.     ; in  : a2.l = pointeur sur l'arbre formulaire en question
  1092.     ; in  : d0.w = index GEM de l'objet devant faire l'objc_edit
  1093.     ; in  : d1.w = position du curseur
  1094.     ; in  : d2.w = [ Key state.w | Key code.w ]
  1095.     ; out : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  1096.  
  1097. GWVA_METHOD_ON_FORM_KEYPRESS = GWVA_METHOD_FORM_KEYPRESS|GWVA_METHOD_MASK_BEFORE
  1098.     ; idem GWVA_METHOD_FORM_KEYPRESS
  1099.  
  1100. GWVA_METHOD_FORM_KEYPRESSED = GWVA_METHOD_FORM_KEYPRESS|GWVA_METHOD_MASK_AFTER
  1101.     ; idem GWVA_METHOD_FORM_KEYPRESS
  1102.     ; in : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  1103.  
  1104. **********************************************
  1105. GWVA_METHOD_FORM_CLICK = GWVA_METHOD_BASE+$202
  1106.     ; What: Traitement consécutif à un simple/double/... clic souris
  1107.     ; What: quel qu'il soit (doite/gauche) dans un objet formulaire
  1108.     ; Who : GWVA_OBJ_CLASS_FORM_OBJ
  1109.     ; Rq  : Le click+before est généré quel que soit
  1110.     ; Rq  : l'état de l'objet futurement clické (disable,...)
  1111.     ; Rq  : Ce n'est pas cette méthode qu'il faut appeler pour générer soi-même
  1112.     ; Rq  : un clic artificel. (Appeler la méthode qui formate l'interface avant)
  1113.     ; Rq  : ayant le No GEM en entrée, cette méthode filtre si c'est pour elle
  1114.     ; in  : a0.l = pointeur sur l'objet
  1115.     ; in  : a1.l = pointeur sur le buffer d'entrée typé GWVA_FORM_CLICK_IN
  1116.     ; in  : d0.l = [ X.w | num gem.w ]
  1117.     ; in  : d1.l = [ Y.w | mouse button.w ]
  1118.     ; in  : d2.l = [ Key state.w | mouse count.w ]
  1119.     ; out : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  1120.  
  1121. GWVA_METHOD_ON_FORM_CLICK = GWVA_METHOD_FORM_CLICK|GWVA_METHOD_MASK_BEFORE
  1122.     ; idem GWVA_METHOD_FORM_CLICK
  1123.  
  1124. ; GWVA_METHOD_FORM_CLICKED ainsi que tous les évènements générés par
  1125. ; GWVA_METHOD_FORM_CLICK sont plus loin.
  1126.  
  1127.     rsreset
  1128. GWVA_FORM_CLICK_IN_WIND_PTR:    rs.l 1    ; pointeur sur la fenêtre formulaire contenant l'objet
  1129. GWVA_FORM_CLICK_IN_TREE_PTR:    rs.l 1    ; pointeur sur l'arbre formulaire en question
  1130. GWVA_FORM_CLICK_IN_FATHER_IDX:    rs.w 1    ; index de l'objet père
  1131. *GWVA_FORM_CLICK_IN_OBJECT_IDX:    rs.w 1    ; index de l'objet trouvé par objc_find
  1132. *GWVA_FORM_CLICK_IN_MX:        rs.w 1    ; mouse X
  1133. *GWVA_FORM_CLICK_IN_MY:        rs.w 1    ; mouse Y
  1134. *GWVA_FORM_CLICK_IN_MB:        rs.w 1    ; mouse button
  1135. *GWVA_FORM_CLICK_IN_MC:        rs.w 1    ; mouse count
  1136. *GWVA_FORM_CLICK_IN_KS:        rs.w 1    ; Key State
  1137. GWVA_FORM_CLICK_IN_STRUCT_LENGTH:    rs.w 0
  1138.  
  1139. ***********************************************
  1140. GWVA_METHOD_FORM_BUTTON = GWVA_METHOD_BASE+$203
  1141.     ; What: Réagit graphiquement au clic => appel à FORM_BUTTON et retourne
  1142.     ; What: le résultat du form_button GEM (patché si nécessaire).
  1143.     ; Who : Tous les objets fils d'un formulaire ayant une représentation graphique
  1144.     ; Rq  : -
  1145.     ; in  : a0.l = pointeur sur l'objet
  1146.     ; in  : a1.l = pointeur sur le buffer d'entrée typé GWVA_FORM_BUTTON_IN
  1147.     ; in  : a2.l = pointeur sur le buffer de sortie typé GWVA_FORM_BUTTON_OUT
  1148.     ; in  : d0.l = [ X.w | num gem.w ]
  1149.     ; in  : d1.l = [ Y.w | mouse button.w ]
  1150.     ; in  : d2.l = [ Key state.w | mouse count.w ]
  1151.     ; out : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  1152.  
  1153.     rsreset
  1154. GWVA_FORM_BUTTON_IN_WIND_PTR:    rs.l 1 ; pointeur sur la fenêtre formulaire contenant l'objet
  1155. GWVA_FORM_BUTTON_IN_TREE_PTR:    rs.l 1 ; pointeur sur l'arbre formulaire en question
  1156. GWVA_FORM_BUTTON_IN_STRUCT_LENGTH:    rs.w 0
  1157.  
  1158.     rsreset
  1159. GWVA_FORM_BUTTON_OUT_OBJECT:    rs.w 1 ; objet sur lequel a eu lieu le FORM_BUTTON en définitive
  1160. GWVA_FORM_BUTTON_OUT_NEW_OBJECT:    rs.w 1 ; nouvel objet [retour FORM_BUTTON] (bit 15 mis si double clic et touche-exit)
  1161. GWVA_FORM_BUTTON_OUT_RET_CODE:    rs.w 1 ; code de retour [retour FORM_BUTTON]
  1162. GWVA_FORM_BUTTON_OUT_OLD_STATE:    rs.w 1 ; state de l'objet avant l'objc_edit
  1163. GWVA_FORM_BUTTON_OUT_NEW_STATE:    rs.w 1 ; state de la nouvelle sélection
  1164. GWVA_FORM_BUTTON_OUT_NEW_TYPE:    rs.w 1 ; ob_type de la nouvelle sélection
  1165. GWVA_FORM_BUTTON_OUT_OBJ_PTR:    rs.l 1 ; pointeur sur l'objet dans le ressource
  1166. GWVA_FORM_BUTTON_OUT_STRUCT_LENGTH:    rs.w 0
  1167.  
  1168. *GWVA_FORM_BUTTON_OUT_OLD_FLAGS:    rs.w 1 ; flags de l'objet clické
  1169. *GWVA_FORM_BUTTON_OUT_OLD_OB_TYPE:    rs.w 1 ; ob type de l'ancienne sélection
  1170. *GWVA_FORM_BUTTON_OUT_NEW_OB_TYPE:    rs.w 1 ; ob type de la nouvelle sélection
  1171.  
  1172. ***********************************************
  1173. GWVA_METHOD_FORM_KEYBD = GWVA_METHOD_BASE+$204
  1174.     ; What: Réaction graphique d'un formulaire à une touche
  1175.     ; Who : GWVA_WRSC_CLASS_FORM
  1176.     ; Rq  : Un Return sur un Default est buggé en GEM de base (patché)
  1177.     ; Rq  : cette méthode est appelée par l'objet fenêtre formulaire qui active
  1178.     ; Rq  : en fonction du résultat la méthode form_keypress de l'objet form
  1179.     ; in  : a0.l = pointeur sur l'objet
  1180.     ; in  : a1.l = pointeur sur le buffer de sortie typé GWVA_FORM_KEYB_IN
  1181.     ; in  : a2.l = pointeur sur le buffer de sortie typé GWVA_FORM_KEYB_OUT
  1182.     ; in  : d0.w = Key code
  1183.     ; out : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  1184.  
  1185.     rsreset
  1186. GWVA_FORM_KEYB_IN_WIND_PTR:    rs.l 1 ; pointeur sur la fenêtre formulaire contenant l'objet
  1187. GWVA_FORM_KEYB_IN_TREE_PTR:    rs.l 1 ; pointeur sur l'arbre formulaire en question
  1188. GWVA_FORM_KEYB_IN_STRUCT_LENGTH:    rs.w 0
  1189.  
  1190.     rsreset
  1191. GWVA_FORM_KEYB_OUT_RET_CODE:    rs.w 1 ; code de retour [retour FORM_KEYB]
  1192. GWVA_FORM_KEYB_OUT_NEW_OBJECT:    rs.w 1 ; nouvel objet [retour FORM_KEYB]
  1193. GWVA_FORM_KEYB_OUT_KEY_OUT:    rs.w 1 ; touche en sortie
  1194. GWVA_FORM_KEYB_OUT_STRUCT_LENGTH:    rs.w 0
  1195.  
  1196. **************************************************
  1197. GWVA_METHOD_FORM_OBJC_EDIT = GWVA_METHOD_BASE+$205
  1198.     ; What: Réaction graphique d'un champ de texte éditable
  1199.     ; Who : GWVA_OBJ_CLASS_FORM_OBJ
  1200.     ; Rq  : ceci est apellé par FORM_KEYPRESS après qu'il ait fait WIND_FORM_KEYB
  1201.     ; in  : a0.l = pointeur sur l'objet
  1202.     ; in  : a1.l = pointeur sur le buffer de sortie typé GWVA_FORM_OBJC_EDIT_IN
  1203.     ; in  : a2.l = pointeur sur le buffer de sortie typé GWVA_FORM_OBJC_EDIT_OUT
  1204.     ; in  : d0.w = index GEM de l'objet devant faire l'objc_edit
  1205.     ; in  : d1.w = position du curseur
  1206.     ; in  : d2.w = [ Key state.w | Key code.w ]
  1207.     ; out : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  1208.  
  1209.     rsreset
  1210. GWVA_FORM_OBJC_EDIT_IN_WIND_PTR:        rs.l 1 ; pointeur sur la fenêtre formulaire contenant l'objet
  1211. GWVA_FORM_OBJC_EDIT_IN_TREE_PTR:        rs.l 1 ; pointeur sur l'arbre formulaire en question
  1212. GWVA_FORM_OBJC_EDIT_IN_STRUCT_LENGTH:    rs.w 0
  1213.  
  1214.     rsreset
  1215. GWVA_FORM_OBJC_EDIT_OUT_RET_CODE:        rs.w 1 ; code de retour [retour FORM_OBJC_EDIT]
  1216. GWVA_FORM_OBJC_EDIT_OUT_CURS_NEW_POS:    rs.w 1 ; nouvelle position curseur [retour FORM_OBJC_EDIT]
  1217. GWVA_FORM_OBJC_EDIT_OUT_STRUCT_LENGTH:    rs.w 0
  1218.  
  1219. ****************************************************
  1220. GWVA_METHOD_FORM_IFACE_CLICK = GWVA_METHOD_BASE+$206
  1221.     ; What: Methode générant un message click sur un objet FORM passé en entrée
  1222.     ; Who : GWVA_OBJ_CLASS_FORM_OBJ
  1223.     ; Rq  : Regénère les paramêtres d'entrée de la méthode GWVA_METHOD_FORM_CLICK
  1224.     ; Rq  : avant de l'appeler
  1225.     ; in  : a0.l = pointeur sur l'objet
  1226.     ; in  : a1.l = pointeur sur la fenetre contenant l'objet
  1227.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1228.  
  1229. ************************************************
  1230. GWVA_METHOD_FORM_CLICKED = GWVA_METHOD_BASE+$211|GWVA_METHOD_MASK_EVENT
  1231.     ; What: Message consécutif à un simple/triple/... clic sur un objet exit
  1232.     ; What: ou touch-exit : purement évènementiel.
  1233.     ; Who : GWVA_FORM_CLASS_ GENERIC/BUTTON/EXTD_TEXT/TEXT
  1234.     ; Rq  : Généré par GWVA_METHOD_FORM_CLICK
  1235.     ; Rq  : Ne marche pas pour un double clic : voir DCLICKED
  1236.     ; in  : a0.l = pointeur sur l'objet
  1237.     ; in  : a1.l = pointeur sur la fenêtre formulaire contenant l'objet
  1238.     ; in  : a2.l = pointeur sur l'arbre formulaire en question
  1239.     ; in  : d0.l = [ mouse button.w | index de l'objet.w ]
  1240.     ; in  : d1.l = [ ob_type.w | ob_state.w ]
  1241.     ; in  : d2.l = [ mouse count.w | Key state.w ]
  1242.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1243.  
  1244.  
  1245. *************************************************
  1246. GWVA_METHOD_FORM_DCLICKED = GWVA_METHOD_BASE+$212|GWVA_METHOD_MASK_EVENT
  1247.     ; What: Message consécutif à un double clic sur un objet exit
  1248.     ; What: ou touch-exit : purement évènementiel.
  1249.     ; Who : GWVA_FORM_CLASS_ GENERIC/BUTTON/EXTD_TEXT/TEXT
  1250.     ; Rq  : Généré par GWVA_METHOD_FORM_CLICK
  1251.     ; in  : a0.l = pointeur sur l'objet
  1252.     ; in  : a1.l = pointeur sur la fenêtre formulaire contenant l'objet
  1253.     ; in  : a2.l = pointeur sur l'arbre formulaire en question
  1254.     ; in  : d0.l = [ mouse button.w | index de l'objet.w ]
  1255.     ; in  : d1.l = [ ob_type.w | ob_state.w ]
  1256.     ; in  : d2.w = Key state.w
  1257.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1258.  
  1259. ************************************************
  1260. GWVA_METHOD_FORM_RCLICKED = GWVA_METHOD_BASE+$213|GWVA_METHOD_MASK_EVENT
  1261.     ; What: Message consécutif à un simple/double/triple/... clic sur un objet
  1262.     ; What: quel qu'il soit : purement évènementiel.
  1263.     ; Who : GWVA_OBJ_CLASS_FORM_OBJ
  1264.     ; Rq  : Généré par GWVA_METHOD_FORM_CLICK
  1265.     ; Rq  : Il n'y a pas eu de form_button avant !
  1266.     ; in  : a0.l = pointeur sur l'objet
  1267.     ; in  : a1.l = pointeur sur la fenêtre formulaire contenant l'objet
  1268.     ; in  : a2.l = pointeur sur l'arbre formulaire en question
  1269.     ; in  : d0.l = [ mouse button.w | index de l'objet.w ]
  1270.     ; in  : d1.l = [ ob_type.w | ob_state.w ]
  1271.     ; in  : d2.l = [ mouse count.w | Key state.w ]
  1272.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1273.  
  1274. ***************************************************
  1275. GWVA_METHOD_FORM_SELECTED   = GWVA_METHOD_BASE+$214|GWVA_METHOD_MASK_EVENT
  1276. GWVA_METHOD_FORM_UNSELECTED = GWVA_METHOD_BASE+$215|GWVA_METHOD_MASK_EVENT
  1277.     ; What: Message consécutif à une sélection/désélection d'un objet non exit
  1278.     ; What: et non touch-exit : purement évènementiel.
  1279.     ; Who : GWVA_FORM_CLASS_ GENERIC/BUTTON/EXTD_TEXT/TEXT
  1280.     ; Rq  : Généré par GWVA_METHOD_FORM_CLICK
  1281.     ; Rq  : Ne marche pas si on a fait plus d'un clic
  1282.     ; in  : a0.l = pointeur sur l'objet
  1283.     ; in  : a1.l = pointeur sur la fenêtre formulaire contenant l'objet
  1284.     ; in  : a2.l = pointeur sur l'arbre formulaire en question
  1285.     ; in  : d0.w = index de l'objet.w
  1286.     ; in  : d1.l = [ ob_type.w | ob_state.w ]
  1287.     ; in  : d2.w = Key state.w
  1288.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1289.  
  1290. ************************************************
  1291. GWVA_METHOD_FORM_CHANGED = GWVA_METHOD_BASE+$216|GWVA_METHOD_MASK_EVENT
  1292.     ; What: Message consécutif au changement de l'apparence d'un objet
  1293.     ; What: (et/ou contenu).
  1294.     ; Who : GWVA_FORM_CLASS_ GENERIC/BUTTON/MENU_POPUP/RADIO_BUTTON/EXTD_TEXT/TEXT
  1295.     ; Rq  : Généré par GWVA_METHOD_FORM_CLICK ou GWVA_METHOD_FORM_KEYPRESS
  1296.     ; Rq  : L'ancien état n'est jamais dans la structure
  1297.     ; Rq  : Dans le cas d'un texte éditable, il n'y a pas de paramètres d'entrée
  1298.     ; in  : a0.l = pointeur sur l'objet
  1299.     ; in  : a1.l = pointeur sur la fenêtre formulaire contenant l'objet
  1300.     ; in  : a2.l = pointeur sur l'arbre formulaire en question
  1301.     ; in  : d0.l = [ ob_type de la sélection courante.w | index de la sélection courante.w ]
  1302.     ; in  : d1.l = [ ob_type de l'ancienne sélection.w | index d'ancienne sélection.w ]
  1303.     ; in  : d2.l = [ ob_state de l'ancienne sélection.w | Key state.w ]
  1304.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1305.  
  1306. *****************************************************
  1307. GWVA_METHOD_FORM_RELEASE_FOCUS = GWVA_METHOD_BASE+$217
  1308.     ; What: Méthode demandant à un objet formulaire s'il veut perdre le focus
  1309.     ; Who : GWVA_OBJ_CLASS_FORM_OBJ
  1310.     ; Rq  : Appelée par GWVA_METHOD_WIND_CLEAR_FOCUS
  1311.     ; in  : a0.l = pointeur sur l'objet
  1312.     ; in  : a1.l = pointeur sur la fenêtre formulaire contenant l'objet
  1313.     ; in  : a2.l = pointeur sur l'arbre formulaire en question
  1314.     ; in  : d0.w = index ressource de l'objet devant lacher le focus
  1315.     ; out : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  1316.     ; out : d7.w = GWVA_NO_ERROR_GENERIC ou GWVA_ERROR_GENERIC
  1317.  
  1318. ***************************************************
  1319. GWVA_METHOD_FORM_CATCH_FOCUS = GWVA_METHOD_BASE+$218
  1320.     ; What: Méthode demandant à un objet formulaire s'il veut prendre le focus
  1321.     ; Who : GWVA_OBJ_CLASS_FORM_OBJ
  1322.     ; Rq  : Appelée par GWVA_METHOD_WIND_SET_FOCUS
  1323.     ; in  : a0.l = pointeur sur l'objet
  1324.     ; in  : a1.l = pointeur sur la fenêtre formulaire contenant l'objet
  1325.     ; in  : a2.l = pointeur sur l'arbre formulaire en question
  1326.     ; in  : d0.w = index ressource de l'objet devant lacher le focus
  1327.     ; in  : d1.w = position du curseur (pour fin de ligne : GWVA_WFORM_CTE_FOCUSED_IDX_CURSOR_POS_UNDEF)
  1328.     ; out : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  1329.     ; out : d7.w = GWVA_NO_ERROR_GENERIC ou GWVA_ERROR_GENERIC
  1330.  
  1331. ******************************************************************
  1332. GWVA_METHOD_FPROGRESS_BAR_SET_PERCENT = GWVA_METHOD_BASE+$231
  1333.     ; What: Méthode pour mettre à jour le pourcentage de l'objet sans redraw
  1334.     ; Who : GWVA_FORM_CLASS_PROGRESS_BAR
  1335.     ; Rq  : -
  1336.     ; in  : a0.l = pointeur sur l'objet progress bar
  1337.     ; in  : d0.w = pourcentage
  1338.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1339.  
  1340. *********************************************************************
  1341. GWVA_METHOD_FPROGRESS_BAR_UPDATE_PERCENT = GWVA_METHOD_BASE+$232
  1342.     ; What: Méthode pour mettre à jour le pourcentage de l'objet avec redraw
  1343.     ; Who : GWVA_FORM_CLASS_PROGRESS_BAR
  1344.     ; Rq  : -
  1345.     ; in  : a0.l = pointeur sur l'objet progress bar
  1346.     ; in  : a1.l = pointeur sur la fenêtre formulaire contenant l'objet
  1347.     ; in  : d0.w = pourcentage
  1348.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1349.  
  1350. *********************************************************************
  1351. GWVA_METHOD_FPROGRESS_BAR_REDRAW = GWVA_METHOD_BASE+$233
  1352.     ; What: Méthode pour redessiner l'objet progress bar
  1353.     ; Who : GWVA_FORM_CLASS_PROGRESS_BAR
  1354.     ; Rq  : -
  1355.     ; in  : a0.l = pointeur sur l'objet progress bar
  1356.     ; in  : a1.l = pointeur sur la fenêtre formulaire contenant l'objet
  1357.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1358.  
  1359. ************************************************
  1360. GWVA_METHOD_FSLIDER_MOVE = GWVA_METHOD_BASE+$241
  1361.     ; What: Message de gestion du mouvement du slider
  1362.     ; Who : GWVA_FORM_CLASS_SLIDER
  1363.     ; Rq  : -
  1364.     ; in  : a0.l = pointeur sur l'objet
  1365.     ; in  : a1.l = pointeur sur la fenêtre formulaire
  1366.     ; in  : d0.l = déplacement du slider en nombre d'élément
  1367.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1368.  
  1369. GWVA_METHOD_ON_FSLIDER_MOVE = GWVA_METHOD_FSLIDER_MOVE|GWVA_METHOD_MASK_BEFORE
  1370.     ; idem GWVA_METHOD_FSLIDER_MOVE
  1371.  
  1372. GWVA_METHOD_FSLIDER_MOVED = GWVA_METHOD_FSLIDER_MOVE|GWVA_METHOD_MASK_AFTER
  1373.     ; What: Message de gestion du mouvement du slider
  1374.     ; Who : GWVA_FORM_CLASS_SLIDER
  1375.     ; Rq  : Le moved n'est pas généré s'il n'y pas eu un mouvement effectif
  1376.     ; Rq  : du slider
  1377.     ; in  : a0.l = pointeur sur l'objet
  1378.     ; in  : a1.l = pointeur sur la fenêtre formulaire contenant l'objet
  1379.     ; in  : d0.l = nouvelle position de l'objet
  1380.     ; in  : d1.l = déplacement effectif du coulisseau (signé)
  1381.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1382.  
  1383. *************************************************
  1384. GWVA_METHOD_FSLIDER_PLUS1 = GWVA_METHOD_BASE+$242
  1385.     ; What: Message déplacant le slider d'un élément en plus
  1386.     ; Who : GWVA_FORM_CLASS_SLIDER
  1387.     ; Rq  : Génère un FSLIDER_MOVE et eventuellement un MOVED.
  1388.     ; Rq  : Pas de gestion de l'objet RSC de P1.
  1389.     ; in  : a0.l = pointeur sur l'objet
  1390.     ; in  : a1.l = pointeur sur la fenêtre formulaire
  1391.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1392.  
  1393. **************************************************
  1394. GWVA_METHOD_FSLIDER_MINUS1 = GWVA_METHOD_BASE+$243
  1395.     ; What: Message déplacant le slider d'un élément en moins
  1396.     ; Who : GWVA_FORM_CLASS_SLIDER
  1397.     ; Rq  : Génère un FSLIDER_MOVE et eventuellement un MOVED.
  1398.     ; Rq  : Pas de gestion de l'objet RSC de M1.
  1399.     ; in  : a0.l = pointeur sur l'objet
  1400.     ; in  : a1.l = pointeur sur la fenêtre formulaire
  1401.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1402.  
  1403. ****************************************************
  1404. GWVA_METHOD_FSLIDER_PLUSPAGE = GWVA_METHOD_BASE+$244
  1405.     ; What: Message déplacant le slider d'une page en plus
  1406.     ; Who : GWVA_FORM_CLASS_SLIDER
  1407.     ; Rq  : Génère un FSLIDER_MOVE et eventuellement un MOVED.
  1408.     ; Rq  : Pas de gestion de l'objet RSC de P1P.
  1409.     ; in  : a0.l = pointeur sur l'objet
  1410.     ; in  : a1.l = pointeur sur la fenêtre formulaire
  1411.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1412.  
  1413. *****************************************************
  1414. GWVA_METHOD_FSLIDER_MINUSPAGE = GWVA_METHOD_BASE+$245
  1415.     ; What: Message déplacant le slider d'une page en moins
  1416.     ; Who : GWVA_FORM_CLASS_SLIDER
  1417.     ; Rq  : Génère un FSLIDER_MOVE et eventuellement un MOVED.
  1418.     ; Rq  : Pas de gestion de l'objet RSC de M1P.
  1419.     ; in  : a0.l = pointeur sur l'objet
  1420.     ; in  : a1.l = pointeur sur la fenêtre formulaire
  1421.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1422.  
  1423. ********************************************************
  1424. GWVA_METHOD_FSLIDER_SET_POSITION = GWVA_METHOD_BASE+$246
  1425.     ; What: Message positionnant le slider à une position donnée
  1426.     ; Who : GWVA_FORM_CLASS_SLIDER
  1427.     ; Rq  : Génère un FSLIDER_MOVE et eventuellement un MOVED.
  1428.     ; Rq  : La position sera corrigée si elle dépasse les limites possibles.
  1429.     ; in  : a0.l = pointeur sur l'objet
  1430.     ; in  : a1.l = pointeur sur la fenêtre formulaire
  1431.     ; in  : d0.l = position voulue ( 0 <= x < LENGTH)
  1432.     ; out : d6.w = GWVA_PRGRET_CONSUMED
  1433.  
  1434. ***********************************
  1435. ; GWVA_METHOD_WM_*    = WM_*
  1436.     ; What: Message reçu du pipe évènement GEM pour une fenêtre.
  1437.     ; Who : GWVA_OBJ_CLASS_WINDOW
  1438.     ; in  : a0.l = pointeur sur l'objet
  1439.     ; in  : a1.l = pointeur sur un buffer au format message GEM (8 mots)
  1440.     ; in  : d0.w = handle GEM de la fenêtre destinatrice
  1441.     ; out : d6.w = GWVA_PRGRET_NOT_CONSUMED ou GWVA_PRGRET_CONSUMED
  1442.     ; out : d7.w = GWVA_NO_ERROR_GENERIC ou autre si erreur
  1443.  
  1444. GWVA_METHOD_WM_REDRAW        = WM_REDRAW
  1445. GWVA_METHOD_WM_TOP        = WM_TOPPED
  1446. GWVA_METHOD_WM_CLOSE        = WM_CLOSED
  1447. GWVA_METHOD_WM_FULL        = WM_FULLED
  1448. GWVA_METHOD_WM_ARROW        = WM_ARROWED
  1449. GWVA_METHOD_WM_HSLID        = WM_HSLID
  1450. GWVA_METHOD_WM_VSLID        = WM_VSLID
  1451. GWVA_METHOD_WM_SIZE        = WM_SIZED
  1452. GWVA_METHOD_WM_MOVE        = WM_MOVED
  1453. GWVA_METHOD_WM_NEWTOP        = WM_NEWTOP
  1454. GWVA_METHOD_WM_UNTOP        = WM_UNTOPPED
  1455. GWVA_METHOD_WM_ONTOP        = WM_ONTOP
  1456. GWVA_METHOD_WM_BOTTOM        = WM_BOTTOM
  1457. GWVA_METHOD_WM_ICONIFY        = WM_ICONIFY
  1458. GWVA_METHOD_WM_UNICONIFY    = WM_UNICONIFY
  1459. *GWVA_METHOD_WM_ALLICONIFY    = WM_ALLICONIFY
  1460. *GWVA_METHOD_WM_TOOLBAR        = WM_TOOLBAR
  1461.  
  1462. GWVA_METHOD_ON_WM_REDRAW    = GWVA_METHOD_WM_REDRAW|GWVA_METHOD_MASK_BEFORE
  1463. GWVA_METHOD_ON_WM_TOP        = GWVA_METHOD_WM_TOP|GWVA_METHOD_MASK_BEFORE
  1464. GWVA_METHOD_ON_WM_CLOSE        = GWVA_METHOD_WM_CLOSE|GWVA_METHOD_MASK_BEFORE
  1465. GWVA_METHOD_ON_WM_FULL        = GWVA_METHOD_WM_FULL|GWVA_METHOD_MASK_BEFORE
  1466. GWVA_METHOD_ON_WM_ARROW        = GWVA_METHOD_WM_ARROW|GWVA_METHOD_MASK_BEFORE
  1467. GWVA_METHOD_ON_WM_HSLID        = GWVA_METHOD_WM_HSLID|GWVA_METHOD_MASK_BEFORE
  1468. GWVA_METHOD_ON_WM_VSLID        = GWVA_METHOD_WM_VSLID|GWVA_METHOD_MASK_BEFORE
  1469. GWVA_METHOD_ON_WM_SIZE        = GWVA_METHOD_WM_SIZE|GWVA_METHOD_MASK_BEFORE
  1470. GWVA_METHOD_ON_WM_MOVE        = GWVA_METHOD_WM_MOVE|GWVA_METHOD_MASK_BEFORE
  1471. GWVA_METHOD_ON_WM_NEWTOP    = GWVA_METHOD_WM_NEWTOP|GWVA_METHOD_MASK_BEFORE
  1472. GWVA_METHOD_ON_WM_UNTOP        = GWVA_METHOD_WM_UNTOP|GWVA_METHOD_MASK_BEFORE
  1473. GWVA_METHOD_ON_WM_ONTOP        = GWVA_METHOD_WM_ONTOP|GWVA_METHOD_MASK_BEFORE
  1474. GWVA_METHOD_ON_WM_BOTTOM    = GWVA_METHOD_WM_BOTTOM|GWVA_METHOD_MASK_BEFORE
  1475. GWVA_METHOD_ON_WM_ICONIFY    = GWVA_METHOD_WM_ICONIFY|GWVA_METHOD_MASK_BEFORE
  1476. GWVA_METHOD_ON_WM_UNICONIFY    = GWVA_METHOD_WM_UNICONIFY|GWVA_METHOD_MASK_BEFORE
  1477. *GWVA_METHOD_ON_WM_ALLICONIFY    = GWVA_METHOD_WM_ALLICONIFY|GWVA_METHOD_MASK_BEFORE
  1478. *GWVA_METHOD_ON_WM_TOOLBAR    = GWVA_METHOD_WM_TOOLBAR|GWVA_METHOD_MASK_BEFORE
  1479.  
  1480. GWVA_METHOD_WM_REDRAWN        = GWVA_METHOD_WM_REDRAW|GWVA_METHOD_MASK_AFTER
  1481. GWVA_METHOD_WM_TOPPED        = GWVA_METHOD_WM_TOP|GWVA_METHOD_MASK_AFTER
  1482. GWVA_METHOD_WM_CLOSED        = GWVA_METHOD_WM_CLOSE|GWVA_METHOD_MASK_AFTER
  1483. GWVA_METHOD_WM_FULLED        = GWVA_METHOD_WM_FULL|GWVA_METHOD_MASK_AFTER
  1484. GWVA_METHOD_WM_ARROWED        = GWVA_METHOD_WM_ARROW|GWVA_METHOD_MASK_AFTER
  1485. GWVA_METHOD_WM_HSLIDED        = GWVA_METHOD_WM_HSLID|GWVA_METHOD_MASK_AFTER
  1486. GWVA_METHOD_WM_VSLIDED        = GWVA_METHOD_WM_VSLID|GWVA_METHOD_MASK_AFTER
  1487. GWVA_METHOD_WM_SIZED        = GWVA_METHOD_WM_SIZE|GWVA_METHOD_MASK_AFTER
  1488. GWVA_METHOD_WM_MOVED        = GWVA_METHOD_WM_MOVE|GWVA_METHOD_MASK_AFTER
  1489. GWVA_METHOD_WM_NEWTOPPED    = GWVA_METHOD_WM_NEWTOP|GWVA_METHOD_MASK_AFTER
  1490. GWVA_METHOD_WM_UNTOPPED        = GWVA_METHOD_WM_UNTOP|GWVA_METHOD_MASK_AFTER
  1491. GWVA_METHOD_WM_ONTOPPED        = GWVA_METHOD_WM_ONTOP|GWVA_METHOD_MASK_AFTER
  1492. GWVA_METHOD_WM_BOTTOMED        = GWVA_METHOD_WM_BOTTOM|GWVA_METHOD_MASK_AFTER
  1493. GWVA_METHOD_WM_ICONIFIED    = GWVA_METHOD_WM_ICONIFY|GWVA_METHOD_MASK_AFTER
  1494. GWVA_METHOD_WM_UNICONIFIED    = GWVA_METHOD_WM_UNICONIFY|GWVA_METHOD_MASK_AFTER
  1495. *GWVA_METHOD_WM_ALLICONIFIED    = GWVA_METHOD_WM_ALLICONIFY|GWVA_METHOD_MASK_AFTER
  1496. *GWVA_METHOD_WM_TOOLBARED    = GWVA_METHOD_WM_TOOLBAR|GWVA_METHOD_MASK_AFTER
  1497.  
  1498. ;-------------------------------------------------------------------------
  1499. ; Code de retour de la routine appelée par GWVA_RSC_GO_OVER_TREE (RSC library)
  1500. ;-------------------------------------------------------------------------
  1501. GWVA_RSC_CTE_STOP_GO_OVER    = 0
  1502. GWVA_RSC_CTE_CONTINUE_GO_OVER    = 1
  1503.  
  1504. ;-------------------------------------------------------------------------
  1505. ; Liste des modes d'activation de la routine de GWVA_ROOT_SEND_GEM_MESSAGE
  1506. ;-------------------------------------------------------------------------
  1507. GWVA_MODE_SEND_GEM_MESSAGE_APID        = 1    ; passage de l'apid de l'application destinatrice
  1508. GWVA_MODE_SEND_GEM_MESSAGE_APNAME        = 2    ; passage du nom de l'application destinatrice
  1509. GWVA_MODE_SEND_GEM_MESSAGE_TO_MYSELF    = 3    ; envoi à moi-meme
  1510.  
  1511. ;-------------------------------------------------------------------------
  1512. ; Liste des modes d'activation de la routine de distribution de méthodes
  1513. ;-------------------------------------------------------------------------
  1514.  
  1515.     ; Distribue à cet objet uniquement, sans jamais chercher sa parenté.
  1516.     ; [LOCAL+DEFAULT]
  1517. GWVA_MODE_SEARCH_EXEC_UNIQUE    = 1
  1518.     ; Distribue à cet objet uniquement, sans jamais chercher sa parenté.
  1519.     ; [LOCAL] (surcharge)
  1520. GWVA_MODE_SEARCH_EXEC_LOCAL_ONLY    = 2
  1521.     ; Distribue uniquement à tous les fils de niveau 1 de cet objet
  1522.     ; (sans tester CONSUMED). [LOCAL+DEFAULT]
  1523. GWVA_MODE_SEARCH_EXEC_ALL_FIRST_SONS= 3
  1524.     ; Distribue uniquement à tous les fils de niveau 1 de cet objet
  1525.     ; qui sont des fenêtres et en positionnant le bon handle
  1526.     ; (sans tester CONSUMED). [LOCAL+DEFAULT]
  1527. GWVA_MODE_SEARCH_EXEC_AFS_WHANDLE    = 4
  1528.  
  1529.     ; Distribue à cet objet et exécute la méthode la plus surchargeante
  1530. GWVA_MODE_EXEC_METHOD        = 11
  1531.     ; Distribue à tous les 1er fils de cet objet et exécute la méthode la plus surchargeante
  1532. GWVA_MODE_EXEC_METHOD_ALL_FIRST_SONS = 12
  1533.     ; Distribue à tous les 1er fils de cet objet en leur passant leur handle GEM et exécute la méthode la plus surchargeante
  1534. GWVA_MODE_EXEC_METHOD_AFS_WHANDLE    = 13
  1535.     ; Distribue à cet objet et exécute la méthode surchargée
  1536. GWVA_MODE_EXEC_METHOD_ENCAPSULATED_CLASS = 14
  1537.  
  1538.     ; distribue à tous les fils de cet objet sans tester CONSUMED or NOT
  1539. GWVA_MODE_CLASS_METHOD_SEARCH_ALL_FIRST_SON    = 21
  1540.     ; distribue à tous les fils fenetre de cet objet sans tester CONSUMED or NOT
  1541.     ; et positionne leur handle GEM dans d0 pour forcer la prise en compte (CLICK)
  1542. GWVA_MODE_CLASS_METHOD_SEARCH_AFS_WITH_HANDLE    = 22
  1543.     ; distribue un évènement généré par le V.A en cherchant uniquemement en LOCAL
  1544. GWVA_MODE_CLASS_METHOD_SEARCH_VISUAL_EVENT    = 23
  1545.     ; Appel de méthode d'un objet autre que l'objet courant (class MAX forcément)
  1546. GWVA_MODE_CLASS_METHOD_SEARCH_OTHER_OBJ    = 24
  1547.     ; Appel d'une méthode différente de la même classe (cherche à partir de i)
  1548. GWVA_MODE_CLASS_METHOD_SEARCH_DIFF_METH_SAME_CLASS= 25
  1549.     ; Appel de la même méthode que courante mais classe i-1 (classe dont on hérite)
  1550. GWVA_MODE_CLASS_METHOD_SEARCH_INHERITED    = 26
  1551.  
  1552. ;-------------------------------------------------------------------------
  1553. ; Codes de retour (D6) de la routine de distribution de méthode
  1554.  
  1555. GWVA_SEARCH_EXEC_CONSUMED    = 1    ; Méthode distribuée (et CONSUMED peut-être plusieurs fois)
  1556.                 ; le code erreur du dernier CONSUMED est dans D7
  1557. GWVA_SEARCH_EXEC_NOT_CONSUMED    = 2    ; Méthode distribuée mais jamais consommée
  1558.                 ; code erreur non significatif dans D7
  1559. GWVA_SEARCH_EXEC_NOT_FOUND    = 3    ; Méthode non trouvée
  1560.  
  1561. GWVA_SEARCH_EXEC_NO_DEST_FOUND    = 4    ; Pas de destinataire trouvé avec le critère d'entrée
  1562.  
  1563. GWVA_SEARCH_EXEC_USER_ERROR    = 5
  1564.  
  1565. *GWVA_SEARCH_EXEC_RETURN_METHOD_UNDEF= 6    ; Si la méthode ne renvoie pas CONSUMED ou NOT_CONSUMED
  1566.  
  1567. GWVA_SEARCH_EXEC_CONSUMED_BY_ONE_OBJECT=7    ; Au moins un des objets a consommé la méthode (cas ALL_FIRST_SON)
  1568.  
  1569. ;-------------------------------------------------------------------------
  1570. ; Codes de retour (D6) des méthodes
  1571.  
  1572. GWVA_PRGRET_CONSUMED        = GWVA_SEARCH_EXEC_CONSUMED    ; Code d'erreur valide
  1573. GWVA_PRGRET_NOT_CONSUMED    = GWVA_SEARCH_EXEC_NOT_CONSUMED    ; Pas de code d'erreur
  1574.  
  1575. ;-------------------------------------------------------------------------
  1576. ; Codes de retour GWVA_ROOT_SEARCH_CLOSEST_PARENT_OBJECT
  1577.  
  1578. GWVA_ROOT_CTE_CLOSEST_PARENT_IS_FATHER = 1
  1579. GWVA_ROOT_CTE_CLOSEST_PARENT_IS_BROTHER = 2
  1580.  
  1581. ;-------------------------------------------------------------------------
  1582. ; Modes d'activation de GWVA_ROOT_CLONE_OBJECT
  1583.  
  1584. GWVA_ROOT_CTE_CLONE_RELOC_ONE_OBJECT = 1
  1585. GWVA_ROOT_CTE_CLONE_RELOC_FAMILY_TREE = 2
  1586.  
  1587. ;-------------------------------------------------------------------------
  1588. ; Codes de retour de la classe WIND
  1589.  
  1590. GWVA_WIND_CTE_CLICK_IS_CONSUMED    =1
  1591. GWVA_WIND_CTE_CLICK_IS_NOT_CONSUMED    =2
  1592.  
  1593. GWVA_WIND_CTE_REDRAW_IS_POSSIBLE    =3
  1594. GWVA_WIND_CTE_REDRAW_IS_NOT_POSSIBLE=4
  1595.  
  1596. ;-------------------------------------------------------------------------
  1597. ; Codes de retour de la classe WRSC
  1598.  
  1599. GWVA_WRSC_CTE_NO_RSC_OBJECT    = 1
  1600.  
  1601. GWVA_WRSC_CTE_CLICK_IS_CONSUMED    = 3    (différent de la classe WIND)
  1602. GWVA_WRSC_CTE_CLICK_IS_NOT_CONSUMED = 4
  1603.  
  1604. ;-------------------------------------------------------------------------
  1605. ; Codes de retour de la classe WFORM
  1606.  
  1607. GWVA_WFORM_CTE_CLICK_IS_CONSUMED    = 5    (différent de la classe WIND)
  1608. GWVA_WFORM_CTE_CLICK_IS_NOT_CONSUMED = 6
  1609.  
  1610. ;-------------------------------------------------------------------------
  1611. ; Codes de retour de la classe WFORM
  1612.  
  1613. GWVA_WBITM_CTE_REDRAW_IS_POSSIBLE    = 1    (différent de la classe WIND)
  1614. GWVA_WBITM_CTE_REDRAW_IS_NOT_POSSIBLE= 2
  1615.  
  1616. ;-------------------------------------------------------------------------
  1617. ; Codes d'erreur (D7)
  1618.  
  1619. GWVA_NO_ERROR_GENERIC        = 0
  1620. GWVA_ERROR_GENERIC        = -1
  1621. GWVA_ERROR_READ        = -11
  1622. GWVA_ERROR_MALLOC        = -39
  1623.  
  1624. ; Codes d'erreur de WIND_CREATE (D7)
  1625.  
  1626. GWVA_ERROR_WIND_BAD_HANDLE    = $FFFFF000
  1627. GWVA_ERROR_WIND_OPEN        = $FFFFF001
  1628. GWVA_ERROR_WIND_ALREADY_CREATED    = $FFFFF002
  1629. GWVA_ERROR_WIND_BAD_STRUCTURE    = $FFFFF003
  1630. GWVA_ERROR_WIND_BAD_INC_DEF    = $FFFFF004
  1631. GWVA_ERROR_WIND_GEM_CREATE    = $FFFFF005
  1632. GWVA_ERROR_WIND_MOTHER_DOESNT_EXIST    = $FFFFF006
  1633. GWVA_ERROR_WIND_MOTHER_NOT_OPENED    = $FFFFF007
  1634. GWVA_ERROR_WIND_CONTENTS_VERIFY_ERR    = $FFFFF008
  1635. GWVA_ERROR_WIND_BORDERS_TOO_SMALL    = $FFFFF009
  1636.  
  1637. ; Codes d'erreur de la méthode CREATE de l'objet fenêtre bitmap
  1638. GWVA_ERROR_WBITM_BAD_COLOR_NBR    = $FFFFF00A
  1639.  
  1640. ; Codes d'erreur de la méthode CREATE de l'objet fenêtre texte
  1641. GWVA_ERROR_WTEXT_MALLOC        = $FFFFF010
  1642.  
  1643. ; Codes d'erreur de la méthode CREATE de l'objet fenêtre application (D7)
  1644. GWVA_ERROR_WAPP_INIT_FAILED    = $FFFFF020
  1645. GWVA_ERROR_WAPP_RSC_LOAD_FAILED    = $FFFFF021
  1646. GWVA_ERROR_WAPP_RSC_LOAD_BAD_INCLUDE= $FFFFF022
  1647. GWVA_ERROR_WAPP_RSC_RELOCATE_FAILED    = $FFFFF023
  1648. GWVA_ERROR_WAPP_WORKSTATION_OPEN_FAILED = $FFFFF024
  1649.  
  1650. ; Codes d'erreur de la méthode CREATE de l'objet fenêtre popup RSC (D7)
  1651. GWVA_ERROR_WRSCPOPUP_UNABLE_REGISTER_CLICK = $FFFFF025
  1652.  
  1653. ; Codes d'erreur des méthodes ROOT
  1654.  
  1655. GWVA_ERROR_ROOT_INIT_METHOD_LIST    = $FFFFF026
  1656. GWVA_ERROR_ROOT_HANDLE_ALREADY_ALLOCATED = $FFFFF027
  1657.  
  1658. GWVA_ERROR_ROOT_APNAME_NOT_FOUND    = $FFFFF028
  1659. GWVA_ERROR_ROOT_APPL_WRITE_FAILED    = $FFFFF029
  1660. GWVA_ERROR_ROOT_BAD_CONSTRUCTION    = $FFFFF02A
  1661.  
  1662. GWVA_ERROR_BAD_CLASS        = $FFFFF030
  1663.  
  1664. GWVA_ERROR_SEARCH_EXEC_METHOD_LIST_PTR = $FFFFF040
  1665. GWVA_ERROR_SEARCH_EXEC_NO_METHOD_LIST = $FFFFF041
  1666.  
  1667. GWVA_ERROR_RSC_NO_SAVE_PARAMETERS    = $FFFFF042
  1668. GWVA_ERROR_RSC_NO_TREE_IDX    = $FFFFF043
  1669. GWVA_ERROR_RSC_BUFFER_UNMATCH    = $FFFFF044
  1670.  
  1671. GWVA_ERROR_CLONING_OBJECT_ALREADY_CREATED = $FFFFF045
  1672. GWVA_ERROR_CLONING_SIZE        = $FFFFF046
  1673. GWVA_ERROR_CLONING_RELOCATION_TREE    = $FFFFF047
  1674.  
  1675. ;---------------------------------------------------------------------------
  1676. ;        Variables système personnalisées
  1677. ;---------------------------------------------------------------------------
  1678. dos        = 1
  1679. bios        = 13
  1680. xbios        = 14
  1681.  
  1682. esc        = 27
  1683. lf        = 10
  1684. rc        = 13    ; format Atari : rc lf
  1685. cr        = rc
  1686. ff        = 12
  1687. bspc        = 8
  1688. tab        = 9
  1689.  
  1690. read        = 0    ; pour file open, write ...
  1691. write        = 1
  1692. read_write        = 2
  1693.  
  1694. ; 0=BPS1 1=BPS2 2=BPS4 3=BPS8 4=BPS16 7=NUMCOLS
  1695. ; 0=col40 8=col80 tv=0 vga=$10 pal=$20 overscan=$40 STmodes=$80 Vertflag=$100
  1696. res64048016        = $3a    ; pour set mode : tout est en PAL/VGA
  1697. res640480256    = $3b
  1698. res320480tc        = $34
  1699. res32020016        = $1b2    ; compatible basse
  1700. res32024016        = $132
  1701. res32048016        = $32
  1702. res320240256    = $133
  1703. res320240tc        = $134
  1704.  
  1705. freq8        = %00001011
  1706. freq10        = %00001001
  1707. freq12        = %00000111
  1708. freq16        = %00000101
  1709. freq20        = %00000100
  1710. freq25        = %00000011
  1711. freq33        = %00000010
  1712. freq49        = %00000001
  1713.  
  1714. ;---------------------------------------------------------------------------
  1715.  
  1716. ecran        = $44e
  1717. futur_ecran     = $45e
  1718. vbl_cpt        = $466
  1719. cpt_200        = $4ba
  1720. vblqueue        = $4ce+4
  1721. enable_vbl      = $452
  1722. hbl        = $68
  1723. palette        = $ffff8240
  1724. palette256        = $ffff9800
  1725. chipsonore        = $ffff8800
  1726. chipvideo        = $ffff8205
  1727. clavier        = $fffffc02
  1728. dma        = $ffff8604
  1729. datac        = $fffffa23
  1730. datad        = $fffffa25
  1731. ctrlcd        = $fffffa1d
  1732. timera        = $134
  1733. dataa        = $fffffa1f
  1734. ctrla        = $fffffa19
  1735. timerb        = $120
  1736. datab        = $fffffa21
  1737. ctrlb        = $fffffa1b
  1738.  
  1739. zilog8530A        = $ffff8c81
  1740. zilogrsA        = $ffff8c83    ; zilog send/receive register
  1741. zilog8530B        = $ffff8c85
  1742. zilogrsB        = $ffff8c87
  1743.  
  1744. dsp_host_isr    = $ffffa202
  1745. dsp_host        = $ffffa204
  1746. codec_freq        = $ffff8935
  1747.  
  1748. ;-------------------------------------------------------------------------
  1749. GWVA_SCANCODE    = $80
  1750.  
  1751. ;-------------------------------------------------------------------------
  1752. ; Constantes pour les touches du clavier : scancodes
  1753.  
  1754. SPACE        = $39
  1755. Nmpad_2        = $6E
  1756. HELP        = $62
  1757. UNDO        = $61
  1758. INSERT        = $52
  1759. CLR_HOME        = $47
  1760. UP_ARROW        = $48
  1761. DOWN_ARROW        = $50
  1762. LEFT_ARROW        = $4B
  1763. RIGHT_ARROW        = $4D
  1764. F1        = $3B
  1765. F2        = $3C
  1766. F3        = $3D
  1767. F4        = $3E
  1768. F5        = $3F
  1769. F6        = $40
  1770. F7        = $41
  1771. F8        = $42
  1772. F9        = $43
  1773. F10        = $44
  1774. F11        = $54
  1775. F12        = $55
  1776. F13        = $56
  1777. F14        = $57
  1778. F15        = $58
  1779. F16        = $59
  1780. F17        = $5A
  1781. F18        = $5B
  1782. F19        = $5C
  1783. F20        = $5D
  1784.  
  1785. ; Appel chez Bounoit de LINDA le 15/08/98 pour Pierre !!!!
  1786.